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a tutti voi 


Sembrava che i TEXANI erano uno sparuto gruppo’ sparsi per l'Italia 
che in preda: a qualche raptus improvviso avevano scelto di acquista= 
re un TI 99, 


Non è pubblicizzato come certi "trabiccoli", riviste che si defi= 
niscono specializzate lo ignorano, Credono che chi sta adoperando. 
un TI 99 sia residente in un paesino di montagna fuori da ogni con= 
tatto, 

Un vero peccato che questa macchina sia arrivata da noi in ritardo, 
nel '79 era già circolante in USA, oggi non c'è ragazzino di 5£O an= 
ni che non abbia fatto un esperienza sul TI 959, Noi in Italia come 
al solito arriviamo quando gli altri d'oltreoceano hanno già finito 
I possessori del TI 99 in america sono già da tempo passati al Per= 
sonal, qui da noi il Personal a stento entra in uno studio profes= 
sionale, in una aziendayin uno studio medico, Le distanze culturali 
aumentano smisuratamente di minuto in minuto, 


In america sul Ti sanno tutto noi invece abbiamo davanti un'oggetto 
misterioso, straordinario, sconcertante, Chi pigia sui tasti ogni 
tanto vede venir fuori certe cose che ci lascia addirittura imbambo= 
lati, Mamma: TEXAS ci ha messo tutta la sua esperienza, Quei 2300 
grammi di ferraglia ( così si espresse un f'amoso Ministro quando si 
parlò di incentivare lo sviluppo dell'Hardware in Italia) hanno un 
universo di conoscenze, innovazioni, di tecnologia avanzata, 


Alcuni di noi hanno cominciato a conoscere il TI 99 e il suo TI 
Basic solo un anno fa.,Già ci sorprendeva la resequenze, il number, 
la grafica, Siamo arrivati poi all! EXTENDIC BASIC, Altre meraviglie 
le sue possibili 15 variabili in una sola istruzione, i favolosi 
spritery le sue matrici di T5/ caratteri, Poi abbiamo sentito par= 
lare della Minimemory, Chi l'ha solo toccata ne rimane contagiato, 
se poi guarda e sfoglia il manuale dell'assemble: con le mappe di 
memoria con le locazioni dei registri scopre tutta la potenza di 
questo @TMS 9900, Avete mai visto su un monitor i pixel colorati 

che uno per uno nel programma dimostrativo si rincorrono, si accop= 
pianoy si dilatano fino a formare architetture stupende ? 


Credete che le sorprese siano finite? NO ! Montate il sintetizzato= 
re introducete la SSS Terminal Emulator, Buttate 4 righe di program= 
ma; scegliete i toni vocali da 1 a 255, mettete qualche *, poi qual= 
che _, qualche >< , digitate una frase, un nome ed ecco il riso di 
un bambino, l'imprecazione di un ubriaco, il canto di un uccello, lo 
sbatter d'ali di una colomba, il rimprovero del nonno, l'esclamazio= 
ne di meraviglia di vostro zio, cugino, amico; il monologo di Amle= 
to recitato da Gassman, Non è un miracolo ! L' tecnologia TEXAS, 


Dopo lette queste righe, riguardate la vostra consolle e con un 
gesto accarezzatela., Non fraintendetemi non vi invito a comunicare 
sentimenti a una macchina ma ringraziare metaforicamente quelle cen= 
tinaia di migliaia di tecnici che hanno permesso tutto questo, insom 
ma un grazie a Mamma Texas, Un rimprovero anche però, All'improvviso 
ci piombano tutte queste novità, questi marchingegni senza che nes= 
suna ce ne ha parlato, ce li ha illustrati, ne a scuola, ne sulle 
riviste specializzate, 


Queste ultime poi,più per convenienza pubblicitaria che per in= 
formazione culturale ci hanno seguitato a propinarci il giochino di 
questo, il listato di quell'altro. Informazioni di carattere generale 
nulla.! Pagine di lodi, colonne e colonne di sviolinate su trabiccoli. 
Poi ci appare un TI sul mercato e nessuno ne sa niente, ne ha capito 
niente, fa finta di niente. i 


Cosa del resto ci poteva capitare a noi povero popolo sottosviluppa= 
to? Quale tipo di informazione ufficiale possiamo pretendere quando 
la stessa scuola ad ogni livello ignora il computer? Che piatto andre= 
mo a cucinare per questa sempre più enorme, sempre di più incessante, 
sempre di più travolgente fame di notizie che i giovani stanno preten= 
dendo a diritto. 


Questa rivista-notiziario è nata a forza di dare risposta ai mille per= 
chè, ed essendo io solo ( dico solo) non potevo certamente dare una 
risposta,a tutti in un modo personale. Inoltre con le vostre mille do= 

mande mi avete scambiato per un tecnico; purtroppo non lo sono, nè 
(per rispondere a tutti voi) lo diventerò mai. Sono uno di voi e nean= 
che col computer tanto bravo come qualcuno mi crede. Anch'io arranco 
anch'io provo e riprovo, anch'io divento pazzo quando un programma non 
gira. A questa mia tanta ignoranza ho rimediato mettendomi in contatto 
con uno di voi, poi due, poi 10 poi cento ora siamo mille ! E se oggi 
e domani voi trovate in queste pagine qualcosa di interessante lo dove= 
te a uno di questi mille cui ricorro per mettere insieme queste pagine. 
Ma forse per qualcuno di voi sono ingenuità, ma allora perchè non col= 
labora costui, perchè non invia qualcosa di strabiliante? 


Qui non siamo in una redazione, qui c'è solo FRANCO, solo ricordati, 
con tanta buona volontà, con tanta iniziativa e che aspetta i più 

bravi di lui. 

Hai visto che salto di qualità già dal primo numero? Merito mio ? NO 
vostro! Qualcuno ci ha criticato, ci ha detto.come dovremmo farla ma 
poi ha dimenticato di mettere lui due righe per tutti. 


In un giorno non molto lontano in massa passeremo ad un sistema più 
grande ( è inevitabile) quel giorno dovremo essere ancora più uniti 
per ulteriori conoscenze, ulteriori scambi e per crescere più spedi= 

tamente verso una nuova cultura che contrariamente a quanto pensava= 
no( e come avrebbero potuto. far diversamente) Labriola, Schopenhauer, 
Freud, Adorno, Marcuse e perfino lo stesso Marx non sarà asservita al 
sistema capitalistico ne potrà essere fatta quella antipatica distin= 
zione Cultura-borghese, Cultura-proletaria, L'uomo contemporaneo è 
chiamato ad esprimere la propria liberazione con l'informatica ! E in 
una forma come ho già detto ancora più travolgente;l'autodidattica |! 
Visto che nessuno la insegna ! ( tolti i furbi privati che stanno fa= 
cendo soldi a palate per insegnare cuattro istruzioni .) 


La Cultura è sempre apparsa come un codice in base al quale vengono 
emessi certi messaggi. Se le persone singole, i gruppi sociali o i 
gruppi etnici sono portatori di culture diverse, manca loro la possi= 
bilità di comunicare in base a un codice in qualche modo comune. 
Tutte le incomprensioni, le incompatibilità e le intolleranze fra i 
gruppi umani derivano da queste carenze a livello di comunicazione che 
si aggiungono poi ad altri conflitti di ordine economico,politico e 
sociale aggravandoli, 


Di fronte g questo potente mezzo "il computer" vedo ogni giorno vacil= 
lare in molte persone quelle sicurezze acquisite e impregnate di culto 
esclusivo della propria cultura, Più sono colti più avvertono psico= 
logicamente come una minaccia e una messa in discussione pericolosa 

la propria integri tà culturale. 


Cari amici che disastro sta avvenendo ! 


Chi è troppo in alto ha perso il contatto con la realtà oggettiva 

che ci circonda, chi è troppo in basso la vede questa realtà,l'avverte, 
ma non la capisce. Un baratro  , IDove,soli soli, pochi,armati di buo= 
na-volòntà stanno facendo i funamboli! 


Nella mia modesta bottega vendo alla vecchietta il suo mezzo chilo di 
sale ( ho una tabaccheria lo ricordate ?) e all'ingegnere poi incre= 
dulo faccio vedere e scorrere e poi risolvere dal computer in pochi 
secondi un suo problema di ingegneria complesso. Due mondi, due cul= 
ture diverse, Uno non comprende, l'altro è rimasto indietro, Una 
acculturazione fallita sia per l'uno che per l'altro. 


Industriali con in azienda computer e programmatori e che avevano scam: 
biato il computer come una normale macchina d'ufficio, corrono ai 
ripari, vogliono incominciare a capire, avvertono che fra poco rimar= 
ranno tagliati fuori dalla cultura informatica, dalla economia infor= 
matica, dall'efficienza informatica, Tutto un mondo a parte fra poco! 


Un mio vicino nella sua stalla con 60 vacche da latte ha impiantato 
il computer. Sbaglia chi pensa che questo significa solo efficienza, 
ottimizzazione. Significa mentalità coerente. Uomo del proprio tempo! 


Da me insegnanti, presidi,direttori didattici vengono per farsi spie= 
gare come potrebbero usare il computer in classe, come fare per impa= 
rare ad usarlo subi to, cosa potrebbe servire. Subito dopo entrano ra= 
gazzi, ragazzi, ragazzini» Sanno già tutto, vogliono sapere ancora 
tutto, già fanno di tutto. 


I grandi: Computer ? ma cosa fa ? ( a me me lo chiedono mentre stanno 
acquistando un pacchetto di sigarette. In un negozio di computer gli 
stessi non lo chiederebbero., Franco è diverso; è disponibile senza 

impegni e poi è lì, perchè non chieder10?). 


Anche a livelli di cultura superiore si seguita a fare due errori. ma= 
dornali, cioè a scambiare INFORKATICA come informazione usuale, cioè 
notizie dei giornali, della radio, della televisione. Per altri INFOR= 
MATICA è calcolatore, calcolatrice. Ho dovuto lottare per far capire 
a certi preposti dell'amministrazione che computer non è calcolatore 
solo, ma una macchina di impiego universale nel senso che puù operare 
in base a qualsiasi programm. di elaborazione che venga preparato. 
Senza tale programma la macchina è ferraglia e basta. Non è una calco= 
latrice, non fa nessun lavoro, non fa nessun gioco. Il computer fa 
e risolve un programma scientifico se il programmatore gli ha messo 
un programma scientifico che ha ben in testa in modo chiaro. Fa Cap= 
puccetto Rosso il bambino se lo stesso ha digitato caratteri su carat= 
teri per costruirlo, E qui l'affascinante ! Ancora di più affascinan= 
te se poi introduco 10/100/1000/1000.000 di informazioni-programmi 
fatti da altri, Intuisco che posso avere a disposizione in un modo 
istantaneo 10/100/1000/1.,000.000 di informazioni che vanno ad accre= 
scere in un istante il mio sapere, le mie conoscenze, Acquisisco 
INFORMAZIONI cioè uno dei tre principali costituenti della natura: 
Materia, Energia, Informazione, 


Più inserisco programmi fatti da cervelli umani più rendo ricca l'in= 
formazione a mia disposizione. Più metto libri in una biblioteca più 
rendo ricca l'informazione(disponibile) a mia disposizione. Quindi 
ricordatevi amici, essere uniti vuol dire scambiarci programmi,quindi 
informazioni, più sono complessi i programmi più alta diventa la 
nostra capacità di dialogare con questi programmi, più alti ovviamen= 
te saranno le nostre capacità di crearne agièora più complessi, 

E! sempre stato così. Dall'età della pietra! Ma che dico, tutta la 
evoluzione genetica è scambio di informazione. DNA, Proteine, Cellu= 
le eucariotiche,organismi etc etc, Evoluzione culturale ? Cinquemila 


anni di storia scritta insegna, i / 
e 
\ 
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Elettronica, nuova rivoluzione industriale 
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L’insegnante che osserva, consiglia e 
pianifica 


Da questa rivoluzione nel ruolo tra l’uo- 

\ (O) Ò CI A mo e la macchina si può ricavare un nuovo, 
importantissimo ruolo per l'insegnante. ll 

quale diventa un osservatore privilegiato 


delle esperiénze del bambino. 
A RE E soprattutto diventa un consulente del 


bambino: colui che guida e dà all'allievo i 


consigli sulia maniera più saggia di orga- 
Î nizzarsi e di procedere per raggiungere i 
| propri obiettivi, anziché insegnare tra- 
® smettendo in modo meccanico le indica- 
zioni sulle azioni da fare. 

Al tempo stesso il LOGO è un mondo 
che può essere esplorato soltanto un pezzo 
per volta. L'insegnante diventa quindi la 
persona più adatta a pianificare questa 
esplorazione, in maniera da renderla siste- 
matica e proficua per l'apprendimento. 








Un problema problematico 

Una delle caratteristiche meno simpati- 
che del TI 99 è che non esiste il modo di 
sapere, tramite il TI-Basic, quale sia la 
quantità di memoria occupata dal pro- 
gramma e quindi, per differenza, quella 
mmasta libera per i dati. Questo implica la 
possibilità di trovarsi un bel messaggio di 
MEMORY FULL sul video proprio nel 
momento meno opportuno. 

Si può aggirare l’ostacolo caricando il 
programma tramite l’Extended Basic che 
permette con l’istruzione SIZE di sapere 
quanta memoria libera sia a disposizione 


MCmicrocomputer 22. 
Porre, dirai fi VOI TR E 


I SEGRETI DEL 


e atei 


TI 99 4/A 








Non è un problema problematico, nel nostro 


Nod Cc vero: CLUB queste cose le sanno anche i ragazzi= 
e ni di 10 anni, 
II 


IN QUALSIASI PUNTO DLL PROGRAMMA, O ANCHE 
DOPO AVER FATTO UNA SOLA RIGA IL TI 99 VI 
DA IL NUMERO DEI BYTE CHE VI RIMANGONO A 
DISPOSIZIONE, 


10 PRINT " FRANCOMPUTER" ( il programma ) 


digitate ora 
1 X=X$9 


2 GOSUB 1 


adesso fate RUN 


s aspettate alcuni secondi 
ed ecco apparire 


MEMORY FULL IN 1 
adesso digitate 


PRINT X 
il Computer stampa 

16326 ======== Sono i Byte che vi rimangono e che potete 
utilizzare, 

INFATTI 16 K x 1024 byte = 16384 byte meno i 58 che avete 


adoperato per scrivere quanto sopra fanno 16326, 


CAPITO0000C0 1! 


( naturalmente se avete un programma che inizia dall! l ri: 
sequenziate per poter avere l' le il 2 liberi) 


( questo è uno dei segreti del mese che valgono il prezzo 


della sola rivista, Quindi non storcete la bocca quando 
vi chiediamo le 4000 lire, 


+ ho0 FRAUCWOGALLI | . 
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SCRIVI DOVE Vuoi 





IO REM SCRITTURA IN QUALUNQUE 
POSIZIONE DEL VIDEO 

I00 CALL CLEAR 

IIO INPUT A$ 

II5 REM A$ LE PAROLE CHE SI 
VOGLIONO SCRIVERE 


120 INPUT "NUM. di BATTUTE":N 
125 REM SI CONTANO . ANCHE GLI 
SPAZI E LA PUNTEGGIATURA 

130 INPUT "H ": H 

135 REM POSIZIONE ORRIZONTALE 
140 INPUT "V ": V 

145 REM POSIZIONE VERTICALE 
I50 FOR K= I TO N 

I60 L=ASC(SEGS(AB,K,1)) 


I7O CALL HCHAR (H,V+K,L) FRANCOMPUTER 





180 NEXT K 
190 STOP 


CLUB 
Si può usare anche in senso COMPUTER 
verticale, basta cambiare TEXAS TI-99 


I70 CALL VCHAR(H+K,V,L) 
Attenzione di non uscire dallo 
schermo !!! 

BAD VALUE IN I70 

Con guesto sistema si possono 


eccupare tutti i punti dello 
schermo, 32 x 24, non possibi 
le con PRINT , 28 x 23. 


AZ è la frase che vuoi 
scrivere nel video 
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"DISPLAY AT" (VELOCE) di FRANCESCC CIMADORI 


COME SAPETE ESISTE LA FAMOSA ROUTINE "display at" YER IL 
TI BASIC. AVRETE NOTATO L'ESTREMA LENTEZZA CON CUI LA 
ROUTINE. STAMPA LE STRINGHE: CIO' E' DOVUTO A TUTTE LE TRAS 
FORMAZIONI CHE DEVE SUBIRE IL CARATTERE PRIMA DI ESSERE © 
VISUALIZZATO NEL VIDEO. 

ORA, CON IL PROGRA%MA CHE HO MESSO A PUNTO, IL TEMPO DI 
STAMPA VIENE RIDOTTO DELLA META' E PIU' RISPETTO ALLA VEC- 
CHIA ROUTINE. 

INNANZI TUTTO SI DEVONO PIMENSIONARE 3 MATRICI: 


100 DIM W(N,P),V(N),KH(N) 


DOVE 'N' è IL NUMERO DELLE STRINGHE CHE AVETE E 
: ‘P'’ è LA LUNGHEZZA MASSIMA A CUI ARRIVANO LE 
STRINGHE 


IN SEGUITO, NELL'ISTRUZIONE "DATA", METTETE TUTTE LE VOSTRE 
STRINGHE CON QUESTO SCHEMA: 


110 DATA (RIGA), (COLONNA-1),(STRINGA), ecc. 


DOVE (RIGA) E (COLONNA-1) INDICANO LE COORDINATE DI 
INIZIO STAMPA DELLE STRINGHE EF 
(STRINGA) E' LA VOSTRA FRASE CHE VOLETE VISUALIZ 
ZARE. 


ECCO IL. PROGRAMMA CHE CARICA LE MATRICI: 


200 FOR T=0 TO N 

210 READ V(T),H(T),A$ 

220 W(T,0)= LEN(A$) 

230 FOR I=1 TO W(T,0) 

240 W(T,I)= Ci 409) 
250 NEXT I 
260 NEXT T 


FRANCOMPUTER | 






















ROUTINE "display at" (per tutte le stringhe) 


270 FOR T=0 TO N 

280 FOR I=1 TO W(T,0) 

290 CALL HCHAR(V(T), H(T)+I1,W(T,I)) 
300 NEXT I 

310 NEXT T 


NATURALMENTE SI PUO!' ST;MPARE ANCHE UNA SOLA STRINGA OPPU 
STRINGHE CHE NON SONO CONSECUTIVE: 


270 T=4 
280 FOR I=1 TO W(T,0) 

290 CALL HCHAR(V(T) ),H(T)+I,w(T,I)) 
300 NEXT I 


LO SPAZIO DI MEMORIA CHE VIENE OCCUPATO E' RELATIVAMENTE 
POCO E SI PUO' VERIFICARE UN ERRORE DI 'MEMORY FULL' SE DU 
RANTE LO SVOLGIMENTO VENGONO ASSEGNATI CON IL SOTTOPROGRAM 
MA 'CHAR' MOLTI CARATTERI. 

TROVERETE UN USO DEL MIO PROGRAMMA NEL GIOCO "CAVERN OF 
MARS" IN VENDITA PRESSO IL NOSTRO CLUB. (Con pedsfug) 






Fioucera Cade 

















100 CALL CLEAR 
IID REM ESEMPIO COME E' POS 
SIBIL&® COSTRUIRE UN SEUPLI 
CE GRAFICO CURVIiORME 

120 REM LA SCALA E' DAL f AL 
Ififà, E IN QUESTO CASO SONO 

I MESI A CONFRONTO 

130 PRINT "ESEMPIO DI GRAFIC 
O CON LE":"COORDINATE X E Y" 


I40 PRINT "TABELLA COD. DI % 



















"::"COD.2 = Ifggti" 4 = 
90":" 62 80" 

. I50 PRINT " 8= 70":" 

{IO= 60":" I2= 50":" 
14 = 40":" I6 = 30" 
"160 PRINT " I8= 20":" 


20 = I0":"COSI* COME COD.I9 
i =I5%": "PRENDI NOTA": "PREMI 
C PER CONTINUARE": 

I I70 CALL KEY(?,K,S) 

I IB0IF S=@ THEN I70 

i 190 DIM A(I2) 

i I95 REM I DODICI MESI 

i 200 Bg="000000FFFF" 

210 CALL CHAR(I28,B$) 

i CALL CLEAR 220 

230 FOR J=I TO I2 

| 240 PRINT "MESE";(J).; 

{ 250 INPUT A(37: 

i 260 NEXT J 

i 270CALL CLEAR 

280 FOR-K=I00 TO fg STEP -I0 
PRINT 290 

i 300PRINT K 

i 3IO NEXT K 

i320 PRINT "01234567 
i 8 9 IOIII2">: 

i 330 C=I 

340 FOR K=I TO II 

i 350 CALL HCHAR(C,3,I28,28) 
360 C=C+2 

370 NEXT K 

380 B=6 

i 390 FOR J=I TO I2 

{1 400 CALL HCHAR(A(J),B,42) 
410 B=B+2 
420 NEXT J 
GOTO 430 


n 


SORT LIT 3 ran RR 


ARDITE A A TRIOIT D 


2° silla ce 


a 180 





PAPERA PILE E e LITI ERRATE TOT RT 





100 CALL CLEAR 

IIO REM COSTRUZIONE A PIENO 
SCHERMO DEI SEDICI COLORI DEL 
TI/99 IN I6 BLOCCHI 

120 PRINT "COSTRUZIONE IN BL 
OCCHI DIY:"I5 COLORI PIU IL 
PRIMO CHE "t"E' TRASPARENTE" 


:"PREMI UN TASTO PER CONT". 
130 CALL KEY(#,K,S) 
140 IF S=f THEN 130 


I50 CALL CLEAR 
1460 A=I 
I70 B=2 
C=2 
190 D=32 
200 FOR X=I TO I5 
2I0 FOR Y=I TO 24 
220 CALL COLOR(A,C,C) 
230 CALL HCHAR(Y,B,D,2) 
240 NEXT Y 
250 A=A4+I 


1260 B=B+2 
ge 270 C=C+I 


FRANCOMPUTER 


280 D=D+8 
290 NEXT X 


300 GOTO 300 


100 CALL CLEAR 

IIO REM ESERCIZIO SULLE NOTE 
120 PRINT " STAI ASCOLTANTO 
UN ESEMPIO";"DI COME IL TI/99 
SUONA":" LE SUE NOTE":::::3:3 


e è0o°0°6do 
° 0 è 00s 


130 FOR K=I TO 48 

140 READ A 

I50 CALL SOUND (250,4A4,3) 

160 NEXT K 

I70 DATA II0,II7,I23,13I,139, 
147,156,I165,175,185,196,208, 

220,233,247,262,277,294,3II 

180 DATA 330,349, 370,392,4I5, 

440,466,494,523,534,587,622, 
659,698,740,784,831,880,932 
190 DATA 988,1047,I109,II75, 
I245,I319,1397,1480,I568, 
1661,1760 


100 REM NOMI IN ORDINE DI 
ALFABETO 


IIO CALL CLEAR 
120 PRINT " PER TERMINARE PRE 


MI ZERO ":::::"QUANTI NOMI VU 
OI. dpr 
130 INPUT "NUM. ": N 


I40 IF N=f THEN 490 

I50 REM IL VALORE DI DIM() VA 

STABILITO PRIMA COME MAX. 

160 DIM A$ (100) 

I70 REM CON 10 NOMI OCCUPA 

K £,150; CON Z00 NOMI K 7, 300; 

CON 1000 NOMI K 3,350 

180 REM INIZIA IL CICLO DEI 

NOMI DA ORDINARE 

190 FORT = 1 TO N 

200 PRINT "NOME ";(I); 

2I0INPUT AS (I) 

220 NEXT I 

230 M=N 

240 T=M/2 

250 M=INT (T) 

260 IF M=@ THEN 400 

270 K=N-M 

280 J-4 

290 I=J 

300 L=I+M 

310 IF AS(I)<=A#(L) THEN 370 

320 T$=AS(I) 

330 AS(I)=A#(L) 

340 AS(L)=Tg 

350 I=I-M 

360 IF I> = THEN 300 

370 J=J+f 

380 IF J> K THEN 240 

390 GOTO 290 

400 CALL CLEAR 

4I0 REM CICLO DI STAMPA CON IL 

CONTROLLO PER PASSRRE ALLO 

SCHERMO SUCCESSIVO DOPO AVER 

SCRITTO 20 NOMI IN ORDINE 

420 FOR I= 1 TO N 

430 IF (I/2I)<>INT(I/2I) THEN 
470 

440 PRINT : " PER CONT. PREMI 

UN TASTO / ENTER" 

450 INPUT W$ 

460 CALL CLEAR 

470 PRINT AS(I) 

48D NEXT I 

490 END 

ATTENZIONE LE VARIABILI HANNO 

UN SIGNIFICATO, NON CAMBIARLE 
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PROGRAMMA DI TRASFORMAZIONE ANGOLARE 


di FRANCESCO CIMADORI 


La conversione angolare avviene da sessagesimale 
( H.M.S:) a sessadecimale ( H.):e viceversa. 

Se, per esempio, avete un ungolo sessagesimale 
di 41 gradi, 3 primi, 27.2 secondi, l'input do 


vrà eseere del seruente formato: 41.03272 












Il programma: 

10 CALL CHAR(130,"00 30 48 48 30") 
20 CALL CHAR(131,"00 20 20 20") 

30 CALL CHAR(132,"00 28 28 28") 

40 INPUT ANG 

50 GOTO 60 (oppure) GOTO 140 

60 REM da H.M.S. a «H. 

70 A=INT(ANG) 

80 B=ANG-A 

90 C=INT(B*100)/60 

100 D=(B#100-C*60)/36 

110 ANGOLO=A+C+D 
120 PRINT "ANGOLO SESSADEC.="; ANGOLO 
130 GOTO 40 
140 REM da H. 
150 A=INT(ANG) 
160 B=ANG-A 

170 C=B#60 

180 D=INT(C) 
190 E=(C-D)x60 
200 AG=STR$(A) 
210 D4=STR3(D) 
220 E$=STR$(INT(E)) 

230 F$= STR$((INT((E-vAL(E$))x100))/100) 

240 PRINT "ANCOLO="NAgù"onAppr rn YEbRn ente 

250 GOTO 40 4 % 

260 END (cir B) (CIRLC) (CARL DI 





























a PH.M.S,. 

















LA RISPOSTA ALLA DOMANDA CHE MI FANNO TUTTI I 
PICCOLI PROGRAMMATORI CHE VOGLIONO SUBITO COS= 
TRUIRE I GIOCHI, COME SI FA A FAR MUOVERE UN 
CARATTERE ? ( in questo caso un omino ) 





CIOL!* LA CALL KEY 


ECCOVI ACCONTENTATI ! 


IOO CALL CLEAR 

IIO CALL CHAR(I29,"I8I8FF3C3C242124") 
120 Cal 

130 R=1 3 i 
I4O CALL HCHAR(R,C,129) FRANCOMPUTER 
I50 CALL KEYX(5,COD,ST) ee == 
160 IF ST=# THEN I59 

170 IF POS("ESDX",CHR$(COND),1)=9 THEN 459 

I80 CALL HCHAR(R,C,32 

190 C = C - a i Si 

200 R = R - (COD=69)y(R >1)+(C0OD=88) # (R<24 

210 GOTO IU4O 








LE DISEQUAZTONI ALLE LINEÉ 190 E 200 SONO I LIMITI ENTRO 
CUI SI MUOVE L'OGGETTO, IN QUESTO CASO UTILIZZIAMO TUTTO 
LO SCHERMO, INFATTI 14C < 32 e 1<€i<24, MA PiR AREE PIU! 


PICCOLE BASTA MODIFICARE OPPORTUNAMENTE 1 VALORI, 


COLONNE 


IH 20 22 24 26 28 30 32 
tao 214234254 274204314 


Y 


be eeBL[L/-3 
INasasn ERE 








ESE 
RI RNRMINARC- 
ERESEE 
PELO 
FePBoE 








M 


SPRITE EDITOR 





SCOPO 3 n’ programma calcola l'identificatore di sagoma di und 
SPRITE Single o Double Sized creato da Voi sullo schermo su una 
griglia I6xI6 ingrandita otto volte, Oppure visualizza sulla griglia 
lo Sprite di cui Voi date l'identificatore di sagoma. Potete in 
ogni momento modificare a piccere la sagoma visualizzata e ri- 


calcolare la stringa corrispondente. 


DESCRIZIONE 3 Dopo la sigla viene stampata la grieclia ed il menu 


principale. Esaminiamo le varie ovzioni possibili : 


I WRITE Con questa opzione potete creora la sagoma desiderata 


sulla griglia o correggere una segona già visualizzata. 
All'inizio compare un yuadratino in alto a sinistra. Lsso si 
muove usando i tasti E S D X secondo le frecce sulla tastiera. 
Ci sono uuattro possibilità: 

OVER : il quadratino é blu e pasca sulle caselle senza modi- 
ficarle. SET 3: il quadratino é nero ed "accende" le caselle 
che attraversa. HKESET : il quadretino é bianco e "spegne" le 
caselle che attraversa, Per cambiare "modo" rsremere il numero 
corrispondente al "modo" desicerato. Premendo il 4 si torna 
al menu principale. 


2 DISPLAY 3 questa opzione calcola l*'identificatore di sagoma 
(I.5.) dello Sprite visuolizzato sulla griglia. L*I.S. é 
stampato a gruppi di otto caratteri, Ad omi due grunpi, 
dall*alto in basso, corrisponie un capattere della griglia 
secondo il seguente schema : 

Cioé il primo carattere é nuello in alto a sinistra, 
I3 e l*ultimo quello in basso a destra. Una volta 


e. 24: stampato 1* I.5. il programa vi chiede il colore 


da dare ello sprite e uindi ve lo mostra fermo in 
grandezza normale e ingrandito in movimento, Potete rivedere 
lo sprite con un colore diverso rispondendo "N" alla domanda 
“PINE ? (5/N)® altrimenti si torna al menù principale. 


3 stringa : questa opzione visualizza lo sprite corrispondente 
&11*I.5. da voi inserito, Dovete inserire la stringa in gruppi 
di otto caratteri. 


Ogni sedici caratteri il progranna mostra il carattere grafico 


relativo. Alla fine potete vedere lo Sprite secondo le modalità 
dell'opzione 2, 


PI 


4 NEW : serve a SARCSLIAFe la sagoma presente sulla criglia. 


5 FINE : Pone termine all'esecuzione Gol Pproprannae 





IL PROGRAMMA £" DISPONIBILE 3U CASSETTA A LIRE A0'000 - 


E BERTA FIL....AVA 


OVVERO I " FILES SU CASSETTA NEL TI 99/4A 





Una delle domande che mi sono sentito più spesso rivolgere nella 
mia: breve esperienza di utente TI 99 è stata " SPIEGAMI LA GESTIO= 
NE DEI FILES ", Chi mi faceva tale richiesta non era solo come si 
putrebbe immaginare adolescenti inesperti e al loro primo computer 

ma anche amici con buone esperienze di programmazione acquisite ma= 
gari sulla gloriosa TI 59. 

I motivi di ciò vanno ricercati sopratutto nella impostazione parti= 
colare del manuale che accompagna il nostro TI 99. La sezione che 
riguarda i " files " è chiarissima dal punto di vista tecnico;,basta 
leggere .con attenzione, ma è assolutamente priva di esempi di utiliz= 
zo cosicche una persona che ignori il significato e l'uso di FILES e 
record dopo mezza pagina salta magari al capitolo della grafica che è 
senz'altro più accessibite, Inoltre dai programmi pubblicati su alcu= 
ne riviste potrebbe dedursi che anche professionisti di buona esperien= 
za ( e dovrebbero essere almeno tali) hanno idee per lo meno un po ne= 
bulose su questo IMPORTANTE ARGOMENTO. Sarà quindi utile spendere qual= 
che parola in più, 


FILE E RECORD 
La traduzione italiana più frequente della parola FILE è "archivio". 
Infatti un FILE non è altro che un archivio, cioè un insieme di infor= 
mazioni logicamente correlate :che in genere vengono conservate per suc= 
cessive consultazioni o aggiornamenti, 
Ci sono infiniti esempi di archivio, anche molto vicini alla nostra 
esperienza comune, Sono archivi: L' Agenda degli Indirizzi- Il libro 
delle ricette- L'estratto conto della banca, Etc,Etc, Per fissare le 
idee, consideriamo un esempio banale: Una Rubrica Telefonica, Essa non 
è altro che un elenco di nomi e numeri telefonici come esempio. 
GONZATO FRANCO 0444/42 678 


SARTORIO. MARCO 0745/45 843 
ELIO. BIANCHI 0741/22 746 


Capito ? Bene, Ogni unità logica di informazione di un File si chiama 
RECORD LOGICO, Nel nostro caso un record logico è per esempio il 
FRANCO GONZATO 0444/42678, 

Ogni RECORD può essere formato a sua volta da CAMPI. I record del ns, 
archivio sono formati da TRE CAMPI: 





CAMPO N. NOME DEL CAMPO CONTENUTO 
1 n " cognome " GONZATO 
2 " nome " FRANCO 
93 " numero " 0444 /42678 


Risulta quindi chiaro che un File è una struttura gerarchica. Le ope= 
razioni che normalmente si compiono su una Rubrica Telefonica sono 


1) CREAZIONE DELL'ARCHIVIO: Quando copiate sull'agenda che avete ap= 
pena acquistata i numeri che volete conservare, 
2) AGGIUNTA DI UN RECORI) +: Quando scrivete il numero di quell'amico 
. o meglio amica che avete conosciuta al mare, 
53) CANCELLAZIONE RECORD s_ Quando decidete che il vostro amico 
‘ Carlo è antipatico e che i suo numero è meglio non averlo, 
4) MODIFICA DI UN RECORD : Quando il vostro dottore di fiducia cam= 
bia casa e quindi numero di telefono, 


FRANCOMPUTER 
L_LERULO FILIPPO... 





In generale queste sono anche le operazioni che si compiono su qualunz= 
que tipo di archivio, L'organizzazione di un archivio dipende in parte 
dalle informazioni che esso deve contenere, in parte dalle operazioni 
che volete compiere sui record che lo costituiscono. Ad esempio, i va= 
ri record logici della nostra rubrica telefonica potrebbero anche ave= 
re solo due campi: 


CAMPO N, NOME DEL CAMPO CONTENUTO 
1 "' nome " FRANCO GONZATO 
2 " telef" 0444 4278 


Ciò vuol dire che una volta scelta, in base a ciò che dobbiamo archi= 
viare, l'unità logica di informazione o record, essa potrà essere orga= 
nizzata in modo diverso a seconda delle nostre esigenze, 


DS 


Un'altra operazione fondamentale che di solito si compie sui FILES è 
l'ordinamento, Esso in generale può essere fatto secondo qualunque 
campo del record. Ad esempio potremo ordinare i nomi della nostra 
rubrica alfabeticamente oppure per numeri telefonici crescenti. 
Esistono svariati metodi per ordinare un FILE , ma su di essi non mi 
soffermerò., Mi preme solo ribadire che il FILE è una struttura usata 
soprattutto per conservare le informazioni a computer spento e come 
tale: ha una: importanza fondamentale, VI CONSIGLIO PERCIO! DI APPROFON= 
DIRE L'ARGOMENTO su testi specifici o su un buon manuahe di program= 
mazione, In ogni caso altri esempi saranno esaminati più avanti, 


IL TI _99/4A E I "FILES" 


A differenza di molti altri computer della sua classe, il nostro TI 
gestisce i FILES in modo notevolmente sofisticato, sicuramente alla 
altezza di macchine più potenti e costose, Soprattutto con i DISK DRIVE 
offre possibilità molto ampie, tali da garantire una corretta e faci= 
le gestione di grandi masse di dati, Nel seguito però non si parlerà 
dei DISK DRIVE fortunati chi li ha ) ma del più plebeo ma non meno 
utile registratore a cassette, 


Tornando al nostro esempio; la rubrica telefonica, supponiamo di voler 
conservare i numeri di dieci amici che abbiamo memorizzato in due vet= 
tori di dieci elementi: NOM$(I) e TEL$(I). Il puntatore I indica 
la corrispondenza tra nomi e numeri, Così, ad esempio per I=3 si avrà 
100) “ GONZATO FRANCO 
TEL$(3) = 0444/42678 
Il nostro record logico è dunque formato da due campi che abbiamo: chia= 
mato NOM$ (I) e TEL$ (I) 


Come su molti altri sistemi, prima di utilizzare un File dobbiamo in 
qualche modo informare la macchina delle nostre intenzioni; è questo 
il senso della istruzione di"apertura file " che sul TI 99 ha la se= 
guente sintassi 
OPEN 7 numero file: nome dispositivo,organizzazione file,tipo 
di file, modo di apertura, tipo di record, 
Adesso andiamo ad esaminare più da vicino i parametri da definire: 


NUMERO DI FILE : Può essere un intero tra 1 e 255 compresi, Serve ad 
identificare nelle istruzioni del programma il file di riferimento, 


NOME DISPOSITIVO: Identifica il registratore che vogliamo usare, Può 
essere il " CSl1 " o il " Cs2 "", 


ORGANIZZAZIONE FILE: Con le cassette può essere solo SEQUENTIAL cioè 
sequenziale. Questa dichiarazione può essere omessa una volta speci= 
ficato l'uso del registratore. 


MODO DI APERTURA : “ IMPUT " se vogliamo leggere dati dal nastro 
OUTPUT se invece vogliamo scrivere dati SUL NASTRO. Ricordate che 
il "CS2" cioè il secondo registratore non può leggere dati ma solo 
scriverli. Così se il nome dispositivo è " CSz2" il modo di apertura 
può essere solo OUTPUT. 





TIPO DI FILE : INTERNAL o DISPLAY} questo è un punto importante su 
cui mi soffermerò in seguito, Se non specificate il "tipo file", il 
calcolatore lo assume LISPLAY, 


TIPO RECORD : Per lie cassette può essere solo FIXEl cioè possiamo 
usare solo record FISICI di lunghezza fissa. 'Possiamo però sceglie= 
re tra record lunghi 64, 128, 152 caratteri. Non sottovalutate la 
importanza di questa scelta: in molti casi può risultare addirittu= 
ra determinante per l'efficienza dei programmi, ( e attenzione 
quando non si specifica la lunghezza del record essa viene assunta 
uguale a: 64 caratteri, ) 


Una volta utilizzato il File, per informare il calcolatore che deve 
chiudere il"canale di comunicazione" con il dispositivo esterno, è 
disponibile una semplice istruzione: 

ì CLOSE # Numero di file 


dove " numero di file " è il numero, assegnato nella OPEN, del file 
che vogliamo chiudere, Naturalmente ci sono ancora le istruzioni più 
importanti, quelle che ci permettono di leggere e scrivere dati mate= 
rialmente sul nastro, Esse sono rispettivamente 


INPUT # numero di file 
PRINT # numero di file 


lista di variabili 
lista di variabili 


A parte il pumero di file, esse hanno una sintassi molto simile alla 
PRINT ed alla INPUT normalmente usate nei vostri programmi, Il moti= 
vo è che il TI 99 gestisce come Files anche la tastiera ed il video 
ed assegna loro il numero di file uguale a @., Infatti le istruzioni: 


IOO PRINT " CIAO CIAO " 


e 
IOO PRINT H9 : "CIAO CIAO" 
oppure 
IIO INPUT A$ 


e 
IIO INPUT#@ : A$ 


Sono perfettamente equivalenti, Tornando al nostro esempio, supposto 
acquisito precedentemente il contenuto dei vettori NOM$ (1) e TEL$ (I) 
cioè il nome ed il numero di telefono dei nostri amici) per regis= 

trarlo su nastro potremmo scrivere le seguenti istruzioni: 


300 OPEN #1:"CS1", INTERNAL, OUTPUT, FIXED 
3I0 FOR I=1 TO 10 

320 PRINT K1:NOM$(I),TELS$(I) 

330 NEXT I 

340 CLOSE #1 


E qualora volessimo rileggerlo: 

500 OPEN 2 : "CS1", INTERNAL, INPUT, FIXED 

510 FOR I=1 TO 10 

520 INPUT #2 : NOM$(I), TEL$(I) 

530 NEXT I 

540 CLOSE W2 
Notate come sia necessaria una perfetta corrispondenza dell'ordine 
di scrittura con quello di lettura, ciò per evitare che variabili di= 
verse si scambino i contenuti, Sia per i Files INTERNAL che per quel= 
li DISPLAY, le variabili da stampare su un record devono essere sepaz= 
rate da una virgola, un punto e virgola o due punti, Quando la lista 
di variabili termina con uno di questi separatori, la successiva is= 
truzione riguardante il file fa riferimento al record precedente, 


Volendo registrare i record del nostro esempio in formato DISPLAY 
avremmo dovuto scrivere: 
ì 300 OPEN #2 : "CS1", DISPLAY, BUTPUT, FIXED 
310 FOR I=1 TO 10 
320 PRINT #2 : NOM$(I);","sTEL$(I);"," 
330 NEXT I 
340 CLOSE # 2 
e per rileggerli basta cambiare l'istruzione 500 in : 500 OPEN {2 3 
"CS1",DISPLAY INPUT FIXED 


Se la lunghezza delle variabili da scrivere sul record supera la ca= 
pacità fissata del record stesso, non si ha un FILE ERROR, ma l'ulti= 
mo dato diventa il primo del record successivo. Per evitare errori di 
lettura, tuttavia è bene che anche in questo caso si valuti attenta= 
mente il numero di caratteri delle variabili da stampare, 


Nelle normali operazioni di lettura/scrittura da nastro, consiglio 
senz'altro il formato INTERNAL. Ma resta da stabilire... .s0000000% 
QUANTI CARATTERI DOPO IL FIXED ? 

Abbiamo già definito un record logico: esso è l'unità logica di infor= 
mazione di un archivio. Abbiamo però parlatà anche di RECORD FISICO: 
nel nostro caso esso è la porzione fisica di nastro su cui vengono 
registrate le informazioni» Ogni volta che scrive un RECORD FISICO 

il nostro computer si ferma per qualche attimo ( o meglio ferma il 
registratore). Noi abbiamo la possibilità, attraverso la istruzione 
OPEN di stabilire quanti caratteri esso debba stampare per ogni record 
fisico ( 64, 128, 192). Tornando al nostro esempio, supposto che i no= 
mi dei nostri amici siano lunghi al massimo 20 caratteri e riservando 
10 caratteri per il numero di telefono, il nostro RECORD LOGICO è lun= 
go al massimo ‘52 caratteri ( infatti due caratteri indicano la lunghez= 
za delle stringhe NOM$(I) e TEL$(I) 


Per come abbiamo deseritto il programma, però, il record FIDICO è 
lungo 64 caratteri. Rimangono perciò inutilizzati ben 32 caratteri, 


3 


La prima soluzione che ci viene in mente è registrare 2 record logici 
per ogni record fisico, Ma se consideriamo che la differenza di tempo 
di registrazione per ogni record tra un FIXED 64 e un FIXED 192 è di 
soli due secondi risulta lampante che la soluzione ottimale è registra= 
re 6 record logici per ogni record fisico lungo 192 caratteri, In soli 
8 secondi dunque stamperemo 6 dei nostri record logici contro i 6 se= 
condi necessari a registrarne uno solo nel nostro primo programma » 


i come possiamo fare lo diamo nella pagina seguente. E come potete 
vedere il ciclo di FOR sulla variabile I serve a dividere i due bloc= 
chi di registrazione, mentre il FOR sulla J ( linee 220, 230, 240 ) 
serve a scrivere sullo stesso record FISICO cinque dei nostri record 
logici ognuno formato da un nome ed un numero di telefono, 


Ciò è possibile in quanto l'istruzione 230 termina con una virgola, 
L'istruzione 250 stampa il sesto record logico e chiude la stampa sul 
record fisico precedente perchè non termina con alcun separatore, 

Lo stesso discorso vale per la routine di input, 


Il segreto dunque per una corretta gestione dei file è nello sceglie= 
re sempre una FIXED I92 ed * impacchettare " il maggior numero di 
informazioni possibili in I92 caratteri con un accorto uso dei sepa= 
ratori. 


ESEML IO 


200 OPEN | 2 : "CS1", INTERNAL J OUTPUT, FIXED 192 
2I0 FOR I=1 TO i2 STEP 6 

420 FOR J=I TO Tal 

230 PRINT #2 : NOM$(I),TEL$(v), 

240 NEXT J 

250 PRINT {2 : NOM$(J),TEL$(J) 

260 NEXT I 

"270 CLOSE X%2 


e per rileggere: 
300 OPEN X2 : "CS1", INTERNAL, INPUT,FIXED 192 
3I0 FOR J=1 TO 12 STEP 6 
3320 FOR J=I TO IH4 
330 INPUT #2 : NOM$(J),TEL$(J), 
340 NEXT J 
350 INPUT #2 : NOM$(J),TEL$(J) 
360 NEXT I 
370 CLOSE 2 


CONCLUSIONI 


ANCHE SE O1TIMIZZAR, PROGRAMMI CHL GESTISCONU FILI:S_ PUO! 
NON SEMBRARE FACILE, ALMENO A CHI AFFRONTA PER LA PxIMA 
VOLTA SIMILI PROBLEMATICHE, ALLA LUCE DI QUANTO FINORA 

DETTO I PUNTI DA CONSIDERARE NON SONO MOLTI, CON UN 

PO DI PRATICA E DI ACCORTEZZA TUTTO SEMBRERA! PIU! FACI= 
LE E GRATIFICANTE SOPRATUTTO PER CHI NON SI ACCONTENTA 
PIU! DI STUPIDI GIOCHINI £ CERCA DI AFFRONTARE ARGOMENTI 


PIU! " SERI " MA NON PER QUESTO MENO DIVERTENTI, 


FRANCOMPUTER 


ceRvLO FILIPPO 


| IL TI 99 DEX GRAFICA | 


DOPO IL TI DEX ( VERSIONE PER TESTI) PRESENTATO NEL PRIMO NUMERO DiL= 
LA RIVISTA SI AGGIUNGE QUESTO PROGRAMMA PER LA GRAFICA REALIZZATO DAL 
NOSTRO BRAVO CERULO FILIPPO CHE ORMAI TUTTI CONOSCONO, 


QUESTA VERSIONE PERMETTE UNA MIGLIORE GESTIONE DELLA GRAFICA DEL COM= 
PUTER., LA PARTE MODIFICATA E QUELLA RELATIVA ALLA DEFINIZIONE CARATTERI, 
INFATTI E*' POSSIBILE ORA DEFINIRE I5 CARATTERI GLRAFICI DVISPONIBILI PER 
LA SCRITTURA DLELLE PAGINE PREMENDO I TASTI CORRISPONDENTI. INOLTRE SI 
PYO' SCEGLIERE 4 COLORI TRA I 16 DISPONIBILI PER LO SFONDO E PRIMO PIANO 
‘CIO’ VI PERMETTE DI TRACCIARE SULLE PAGINE CON ESTREMA FACILITA' DISEGNI 
ANCHE MOLTO COMPLESSI COME E! DIMOSTRATO NELL'ARCHIVIO DIMOSTRATIVO IN= 
CLUSO NEL PROGRAMMA, ARCHIVI RELATIVI AI PIU' SVARIATI ARGOMENTI SARAN= 
NO PRODOTTI IN UN PROSSIMO FUTURO ASSIEME AD UN PROGRAMMA CHE PERMETTERA 
DI LEGGERLI ANCHE SOLO CON IL TI BASIC, 


DESCRISIONE: LA GRIGLIA E FORMATA DI 6 SAGOME ( quadrati di 8 Xx 8 ) 
CHE HANNO IDENTIFICATORI.QUELLI PIU! IN ALTO 1 2 3 
QUELLI PIU! IN BASSO 4 5 6 





1)"SET: PER REALIZZARE IL DISEGNO BISOGNA PRIMA SELEZIONARE 
CON @ IL SET E POI UTILIZZARE I TASTL E S D X, 
IN QUESTO MODO SI DISEGNA E SI CANCELLA PREMENDO IL TASTO 
d OPPORTUNAMENTE, 


2) STRINGA : BASTA SELEZIONARE LA SAGOMA DI CUI SI VUOLE LA 
STRINGA ESADECIMALE E ATTENDERE, IL RELATIVO DISEGNO VERRA! 
STAMPATO A DESTRA DEL VIDEO, 


3) DISPLAY: SELEZIONATE PRIMA LA SAGOMA POI SCRIVETE LA STRIN= 
GA E BATTETE ENTER. 


4) NEW: _ SOLO CON IL MODO NEW IL DISEGNO SULLA GRIGLIA VIENE 
CANCELLATO TRANNE SE SIT SELEZIONA DISPLAY, 


5) DRAW 3 _ CON DRAW OTTERRETE SU VIDEO CIO! CHE E! DISEGNATO 
SULLA GRIGLIA PREMENDO % POTETE OTTENERE IL DISEGNO IN 
PICCOLO CON TUTTI I COLORI PER LO SFONDO E I CARATTERI, 





IL PROGRAMMA E' DISPONIBILE PRESSO IL CLUB A LIRE 20.000 ( N,304 ) 
COME AL SOLITO IL 50 % DEL RICAVO VANNO ALL'AUTORE DEL PROGRAMMA 
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260 
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320 


340 


S60 


370 


390 


410 


420 


430 
440 


O REM sessuurazeeseosotes 


IN 





REM 4, GOLD ‘RUSH li 

REM susssuvazasezeoszee 

REM ® BY W.K.BALTHROP £ 

REM 99°ER VERSION 2.2.1XB 

CALL CLEAR 313 CALL SCREEN(16):3 
DIM DCC4) 

RESTORE 2220 :: GOSUB 2280 1: 6 
OSUB 2280 1: GOSUB 2260 1: GOSU 
B 2330 

CALL CHAR (96, "FFFFFFFFFFFFFFFFO 
0")33 CALL COLOR(9,2,5) 

SMI=9 1: SM2=169 1: DI, DI, DS=9 
33 D2=193 1: D4=20| 1: D6&=209 3 
1 DC(2),DC{3),DC(4)=10 

CALL AR(0,0,0,3) : A 
CALL CLEAR :: RESTORE 2240 ta F IAN ESTE DESERTA 
OR X=i TO 6 :: GOSUB 2260 1: NE Î Disfodibire AL Cud in ifaLiAno 50 LAGSETTA L.i0%005 
XT X :£ GOSUB 2500 :3 B=VAL (ANS) 

DI8="UP" ci D2$="LEFT" 11 DI$=" 

RIGHT" 211 D46="DOWN" 13 D58="NO 

T THAT WAY° 13: D6$="TAKE DYNAMI 











TE” :INT(RND815) #5 13 PZ=INT(RNDS 
D78="0K* 13 Das=-NO Dvnamite= 1 || 19° FATINTIRND E, 660 IF K=66 THEN GOSUB 900 11 GOTO 
: DI8="DROP DYNANMITE" 1: DI08=" || 460 CALL AR(P1,P2,Z,1)1: IF Z<4 THE 
LIGHT FUSE”. 1: DI1$="INPUT DIRE N NISINT(RND825)+10 11 CALL AR( | 670 Bo THEN GOSUB 990 11 GOTO 
CTION” 
NZ,2)ELSE GOTO 430 
D129="NO DYNAMITE..." :1 D138=" || (70 a î 680 IF K=BO THEN 1050 
CAN'T DO THAT" 1: DI4$="FUSE, BU ||IL0 FOR Xe1 TO 30 590 IF K=76 THEN 1140 


RNING* :3 DI5$="SHAFT 15 CLEAR" 
D16%="GOLD'-VALUE®8" :: DIB6S="DI 
RT.“ 3: DI9$8="SOL ID ROCK. 

D20$="GRANITE"” :: D21$=>"FL00D! * 
#3 D22$="VYOU'VE BEEN KILLED ÌN 


700 IF K=77 THEN 1610 
490 FISINTIRNDB1OI+2 13 P2SINTIANDE | 710 1F K13 THEN 2200 
500 CALL AR(P1I,P2,Z,t)11 IF zc4 THE | 720 GOTO 620 


750 As=D18 11 GOSUB 2320 
N NZ=INT(RND815)+10 11 CALL ARC | 740 IF SPICI THEN 770 





A" :1 D236="BLAST" P1,P2,N2,2) ELSE GOTO 490 750 IF SPi=1 THEN 700 
l ” DIO NEXT X 760 CALL AR(BP1-1,6P2,2Z,1)1: IF Z=@ 
CALL CLEAR 11 FESTORE 22530 11 @ | 520 CALL CLEAR 11 CALL HCHAR(3, 1,96 THEN 760 





OSUB 2260 11 RANDOMIZE 1500)13 CALL VCHAR(1,31,117,96) | 770 


Ad=D5$ 21: GOSUB 2510 1: RETURN 


FOR X=1 TO B#50 1: Pi=INT(RNDS1 5: CALL COLOR(12,7,16) 780 A8=D78 11 GOSUB Z2SI0 1: SPI=SP1 
P)+1 13 P2=INT(RND®O2B) +1 ta CAL 530 CALL CHAR(104, "06E6427E42470D09 -1 rt: SMI=SM1-8 10 CALL LOCATE( 
L ARP1,P2,2,2):: NEXT X bl 0000001F7F DF 0000100B043C3C3C") #1,5M1,SM2) 

FOR X=e1 TO B820 11 Pi=INT(RND81 540 CALL CHAR(112,“01071C74C4040404 790 IF GAR=1 THEN CALL LOCATE (#CARI 
9)+1 13 P2=INT(RND828)+1 11 CAL 00000001071C70C000187EC3") , 901, SN2) 

L ARPI,P2,3,2)1: NEXT X 5350 CALL CHAR(115, “000000B0E0380E03 B00 RETURN 

FOR X=1 TO B85 11 Pi=INT(RND#168 AROEOSAZEISZ0AGZOFFFERERFPREPFEE d10 AS=D26 ri GOSUD 2320 

Y+2 11 P2=INT(RND827)+1 820 IF SP2=1 THEN 770 

CALL AR(P1,P2,5,2)1: CALL ARCPI | 560 CALL COLOR(11,13,1)1: CALL CHAR | 630 IF SP1=0 THEN 990 

,P2+1,5,2)11 NEXT X (120, "1072401A0E604C01CB4259882 | 640 CALL AR(SP1,6P2-1,2,1)11 IF 2=7 
Pi=INT(RNDS10)+10 13 P2=INT(RND 2449900°) OR 2=8 THEN 670 

026) +2 570 CALL COLOR(13,13,1)11 CALL CHAR È Gu) 1 Z=4 TIR 870 

FOR FM=0 TO 2 1: NZ=INT(RND8151 pg ie i) CALL | 640 AS=D5S 11 GOSUB 2310 1: RETURN 
)+100 11 CALL AR(PI,P2+FM,NZ,2) "3, 19 T SE CALL 

ia NERE : 580 CALL HCHAR(2,24,112)11 CALL HCH | 879 prat > Paga era 
P3=P1 13 P4=P2 AR(2,28,116)1: CALL HCHAR(1,25, ivo ur 

FOR X=1 TO 10 133) È: = SM2- 
Pi=sINT(RND89)+PI-4 11 PZ=INTIRN | 590 dn desi a era CALL MCH ai LOCATE DI enl enzo to 
DU11)+P4-5 127, 
IF P1>19 OR P2C1 OR P2>28 THEN |600 CALL EPRITE(82,106,2,01,02, 631 | 990 PENUoAtt LOCATE LSCARI, SMI, 6N2) 
340 06,2,D3,D4,94,106,2,D5,D6,#1,10 | 900 AS=D3è 11 GOSUB 2320 

CALL AR(P1,P2,2,1)11 IF Z04 THE 4,13,SH1,SM2) 910 IF SP2=26 THEN 770 

N NZ=INT (RND873) +26 at CALL AR( | 610 RESTORE 2260 1: GO0OSUB 2260 920 IF SP1=0 THEN 970 
P1,P2,NZ,2)ELSE GOTO 360 520 K=0 1: CALL KEY(0,K,S):1 SPi=m(B | 330 CALL ARISPI SPIIILI,1)11 IF I=7 
NEXT K Mi+7)/8-2 1: SP2=(SM2+7)/0-2 DR IU TREN 040 

FOR X=1 TO 10 630 DISPLAY AT(23,1)1”° 940 1F Zu THEN 9460 
PI“=INT(RND810)+10 1: P2Q=INT(RND } 440 via THEN GOSUB 750 13 GOTO 950 AS=DS6 1: GOSUB 2310 1: RETURN 
120) +1 i 

CALL AR(P1,P2,2,1)11 IF T<4 THE | 650 IF.K=@3 THEN GOSUB 810 1: GOTO | 900 (SD Sl 
NONZ=INT(RNDS29) +10018 CALL ARCO 620 IRE, SRI, IA 


P1,P2,N7,2)ELSE BOTO 410 
NEXT X 
FOR X=i TO 20 





I 


Ti _—________T_tT_T—_t_T—_—tttt@ @td0‘è’dt’’r———. 
970 EP2=85P2+1 1: BM2=8M2+8 s1: CALL 
LOCATE (81,811,85M2)11 IF CARS! T 
HEN CALL LOCATE (8CAR1,6M1,6M2) 
980 RETURN 
990 AYV=D4% :1 GOSUB 2320 
1000 IF &P1=19 THEN 770 
1010 CALL AR(GP1+1,SP2,7Z,1):: IF Z< 
7 OR 7>8 THEN A0=D38 1: GOSUB 
2310 11 RETURN 
4020 IF Z7<>8 THEN GOTO 2190 
10350 GP1=SP1+1 ii GMI=SM1+8 11 CALL 
° LOCATE (01,5M1,85M2):1: IF CAR=I 
THEN CALL'LOCATE (SCAR1,6M1,SM 
2) 
1040 RETURN 
1050 IF CAR=1 THEN 1100 ELSE A8=D66 
11 GOBSUB 2320 
1060 IF SMi=D1 AND BM2=D2 THEN CAR= 
1 1s CAR1=2 12 A8=D78 1: GOSUB 
2310 11: D1,D2=0 1te GOTO #20 
1070 IF SM1=DIJ AND SBM2=D4 THEN CAR- 
1 13 CAR1=3 131 A8=D78 1: BOSUB 
23510 1: DI,D4=0 31: GOTO 620 
| 1080 IF Sf1=D5 AND 6M2=Dé6 THEN CAR= 
| 1 ts: CAR1=4 11 A8=D7% 11 GOSUB 
i 23510 2135 DS,Dé6=0 ts: GOTO 620 
| 1090 AS=D89: 11 GOSUB 2310 11 BOTO 6 
20 
|1100 AS=D98 :: GOSUB 2320 
! 1110 IF CAR1=2 THEN DI=SM1 1: D2=S8N 
2 11 CARSO sr GOTO 620 
1120 IF CARI=S THEN DJ=SM1 
2 3: CAR=O 13 GOTO 620 
1130 IF CAR1=4 THEN D5=eSMI 1: Dé=SM 
2 131 CAR®O 11 GOTO 620 
1140 A6=D108 rt: BOSUB 23520 1: AS©DI 
108 13 GOSUB 23510 
1150 IF CAR=O OR DC(CAR1)=0 THEN A3, 
=D128 11 GOSUB 2510 1: GOTO 62 
(e) 
1160 GOSUB 235350 
1170 IF K=83 THEN 1210 
1180 IF K=68 THEN 1260 
1190 IF K=88 THEN 1290 
1200 CALL SOUND(100,350,0)1: GOTO 1 
160 = 
1210 IF SP2<2 THEN A8=D138 11 GOSUB 
23510 11 GOTO 620 
1220 CALL AR(SP1,8P2-1,Z7,1)1s 1F 2» | 
7 OR Z=0 THEN A8=D13$ 11 GOSUB 
23510 ta GOTO 620 
1230 CALL SPRITE(#53,1035,7,6M1,fM2-@ 
)er DC(CAR1) “DC (CAR1)-1 
1240 PlsSP1 11 P2=6P2-1 
1250 A8=D148 11 GOSUB 2510 1: BOTO 
1320 : 
1240 IF 9P2>27 THEN A8=D138 11 GOGU 
B 2310 11 GOTO 620 
. 1270 CALL AR(B8P1,5P2+1,7,1):1 IF Z=> 
7 OR Z=8 THEN Ad=D1530 11 GOSUSB 
2510 1: BOTO 620 
1280 CALL SPRITE(035,1035,7,68M1,6M2+98 
)ia DC(CARI1)=DC(CAR1)-1 11 Pi= 
BP1 11: P2=6P2+1 1: BOTO 1250 
1290 IF SPI1)18 THEN AS=D135$ 1: B0SU 
B 2310 1: GOTO 420 
1300 CALL AR(BP1+1,5SP2,2,1)11 IF Z° 
7 OR 2=8 THEN As=D158 11 GOSUB 
23510 11 GOTO 620 
1310 CALL SPRITE (@5,103,7,5M1+8,SN2 
‘ )es DC(CARI)=DC(CAR1)-1 1: Pi» 
$ SP1+1 11 P2=8P2 1: GOTO 1250 
1320 TD=5 ; 
1330 DISPLAY AT(Z2,17):TD 1: G0SUB 
4750 
1340 TD=TD-1 s3 IF YTD}-1 THEN 1350 
1350 FOR EX=i TO 10 11 CALL PATTERN 
(05, 120)2:5 CALL PATTERN (85,121 
)1s CALL SOUND(3500, INT (RNDS-3) 
-4,0)13 NEXT EX 
1360 CALL DELSPRITE (05)11 IF ABS(BP 
1-P1) /3 AND ABS(SP2-P2)C3 THEN 
174€ 
1370 CALL AR(P1,P2,7,1):1 ORE=Z 
1360 IF K->B8 THEN 1400 ELSE CALL H 
CHAR (P1+2,P2+2,1280)1s CALL ARI 
Pi .P2,0,2) 
1390 CALL HCHAR(P1+1,P2+2,128)s: CA 
LL AR(P1-1,P2,8,2)1: BOTO 1410 
1400 CALL HCHAR(P1+2,P2+2,352)1: CAL 
L ARP1,P2,7,2) 
| 3410 IF OREC4 THEN A%=D158 1: GOSUB 
7310 13 GOTO 620 
1420 IF ORE>8 THEN GOLD=G0LD+ORE 11 
#* DISPLAY AT(24,21)160L.D 11 AS= 
DI68 1: GORUB ZIIO0 s1 DISPLAY 
AT(22,24) 10RE 
1430 IF ORE<=6 CHEN 1450 
1440 RESTORE 2270 1: FOR CS=ì TO 5 
11 READ 68 11 CALL SOUND(2008C 
8,89,0)t1: NEXT CS 115 GOTO 420 
1450 IF ORE=4 THEN A8=D178 1: GOSUB 
2310 13 GIOTO 620 
1450 CALL HCHAF:{(P1+2,P2+2,1536) 


(3 D4=SN 


n 





1470 Ad=D218 11 GOSUB ZI10 tt CALL 
SOUND (1000,110,0,-8,0)1: GOSUL 
1750 

1480 CALL SOUND{500,110,0,-5,0)t: E 

î OSUB 1750 

1490 IF P2C=1 THEN 1500 ELSE CALL £ 
RIP1,P2-1,2,1)11 IF 2=»7 OR Z=@ 
THEN 1520 

1500 IF P2>27 THEN 1510 ELSE CALL A 
RIP1,P2+1,Z,1)10 IF Z=@ OR Z=7 
THEN 1580 


1510 CALL HCHAR(P1+2,P2+2,136)1: GO 


TO 620 
1520 P2=P2-1 11 CALL HCHAR (P1+2,P20 
2,156)1:: B0SUS 1750 
1550 CALL AR(P1,P2,35,2) 
1540 IF PissPi AND P2=8P2 THEN 2190 
1850 IF Pi=19 THEN 1560 ELGE CALL A 
RP1+1,P2,î,1)ta IF Z°8 THEN G 
OTO 1440 
1560 IF P2>0 THEN CALL AR(P1,P2-1,I 
»13)11 IF Z=7 OR Z=@ THEN 1520 
1370 CALL HCHAR(P1+2,P2+2,134)1: 80 
TO ezo 
1560 P2=P2+1 11 CALL HCHAR (P1+2,P2+ 
2,136) 11 GOSUB 1730 
1590 CALL AR(P1,P2,5,2) 
1600 IF Pl=SP1 AND P2=SP2 THEN 2190 
1610 IF Pi=19 THEN 1620 ELGE CALL A 
RIPL+1,P2,2,1)s0 IF Z=8 THEN @ 
OTO 1640 
1621 IF P228 THEN CALL ARI(P1,P2+1, 
Z,1)13 IF Z=7 OR 2=@ THEN 13580 
1630 CUL HCHAR(P1+2,P2+2,1354)11 60 
Tu 620 
1640 Pi=P1+1 12: CALL HCHAR (P1+2,P2+ 
2,156)t3 BOSUB 1750 
1650 CALL AR(P1,P2,5,2) 
16460 IF Pi=8P1 AND P2=SP2 THEN 2190 
1670 IF Pi=19 THEN 1680 ELSE CALL A 
R(P1+1,P2,Z,1):s IF 2=6 THEN 1 
640 
1680 RANDONI ZE 
16490 IF P2>27 OR P2<=1 THEN 1720 
1700 CALL AR(P1,P2+1,Z7,1):31 CALL AR 
(P1,P2-1,Z1,1)13 IF (Z=7 OR Za 
@)AND(Z1=7 OR Z1©8) THEN FLJ=IN 
T(RNDS2) +1 
1710 IF FL3>0 THEN ON FLJ GOTO 1520 
, 1580 
1720 IF Z=7 OR Z=8 THEN 1590 ELSE I 
F Z1=7 OR Z1=8 THEN 1520 
1730 CALL HCHAR(P1+2,P2+2,156)11 GO 
TO 6420 
1740 DISPLAY AT(22,1):D228:D258 st 
BOTO 2200 
1750 CALL KEY(0,K1,S1)3zs 
8=-1 THEN RETURN 
1760 IF K1=69 THEN GOSUB 750 nt RET 
URN 
1770 IF Kl=83 THEN GOSUB B10 11 RET 
URN 
1780 IF Ki=6@ THEN GOGUB 900 13 RET 
URN 
1790 IF Ki=@8 THEN GOSUB 990 1a RET 
URN 
1800 RETURN 
1810 DISPLAY AT(23,1)1°MINE IN WHAT 
DIRECTION?” ° 
1820 CALL KEY(0,KE,SE):: 
EN 1820 
1830 IF KE=B83 THEN 1870 
1840 IF KE=68 THEN 1970 
1850 IF KE=B®B THEN 2070 
1640 CALL SDUND(100,550,0)t1:° GOTO 1 
Bl10 
1870 DISPLAY AT(24,1)SIZE (16): "MINE 
LEFT* 
1880 IF 6P2<2 DR SPi1<1 THEN CALL SO 
UND (50,220,5):: GOTO 620 
1890 CALL AR(SP1,SP2-1,2,1)33 IF Z< 
>1 THEN 1920 ELSE CALL ARI(SPI, 
SP2-1,7,2)ta CALL HCHAR(6P1+2, 
SP2+1,32) 
1900 Sf12=SM2-8 11 SP2=65P2-1 ti CALL 
LOCATE (01,SM1,9M2)1: IF CAR=I 
THEN CALL LOCATE(#8CARI,SM1,8M 
2) 
1910 A$=D16%8 13 GOSUB 2310 11 6010 
620 : 
1920 IF Z=2 THEN A$=D19% 11 GOBUB 2 
310 11 GOTO 620 
1930 IF Z=5J THEN A$=D208 11 GOSUB 2 
310 ti GOTO 420 
1940 IF 2=7 OR Z=8 THEN DISPLAY ATC 
22,1)1"MM READY MINED.“ 13 6070 
€20 
1950 CALL HCHAR(5P1+2,SP2+1,32)1: Q 
RE=I 11 IF 2)8 THEN CALL AR(8BP 
1,8P2-1,7,2) 
1960 PleSP1 11 P2=SP2-1 1: GOTO 142 


IF Bi=0 OR 


1F SE=0 TH 


o 

1970 DISPLAY AT(24,1)51ZE(16)1 "MINE 
RIGHT" 

1980 IF SP2>27 OR SP1<C1 THEN CALL S 
OUND (50, 220,3)t11 GOTO 420 


: 2090 CALL AR(SP1+1,SP2,2Z,1)a1 


1990 CALL ARISP1,8P2+1,Z2,1)st IF ZC 
>1 THEN 2020 ELSE CALL ARIBPI, 
SP2+1,7,2)t1 CALL HCHARI(GP1+2, 
SP2+35,32) 

2000 SM2=SM2+8 1: SR2=6P2+1 11 CALL 
LOCATE (#1,SM1,5SM2)1: IF CARI 
IO CALL LOCATE (#CAR1,6M1, GM 

2010 AS=D188 :3 GOSUB 2310 1: GOTO 
620 

2020 IF I=2 THEN A8=DIG0 :1 608UB 2 
310 :: GOTO 620 

2030 IF Z=3 THEN AS=D198 ca 
310 33 GOTO 420 


2040 IF 2=7 OR 2=8 THEN DIGPLAY ATI{ 
-22,1)s “ALREADY MINED.° 31 GOTO 
620 
2050 CALL HCHAR(SP1+2,6P2+3,32)11 0 
RE=I 1: IF Z>8 THEN CALL AR(SP 
1,SP2+1,7,2) 
2060 PleSP1 12 P2=SP2+1 11 GOT0 142 
(1) 
2070 DISPLAY AT(24,1)SIZE(16)1 "MINE 
DOWN. * ; 
2080 IF SP1=19 THEN CALL SOUND (50,2 
20,5):1 GOTO 620 


G08UB 2 


IF Z< 
>1 THEN 2150 ELSE CALL ARISPI+ 
1,SP2,0,2)11 CALL HCHARISP1+3, 
SP2+2,128) 

2100 SPI=SP1+1 1: SMI=SM1+8 11 CALL 
LOCATE (81,SM1,SM2)11 IF CAR=I 
THEN CALL LOCATE (8CAR1,8NM1, BM 
2) i 

2110 A$=D168 1: GOSUBÙZIIO 11 IF SP 
1<1 THEN GOTO 420 

2120 CALL AR(SP1-1,5P2,8,2)11 CALL 
HCHAR (SP1+1,6P2+2,126)1: GOTO 
620 

2130 IF Z=2 THEN As=D19% 1: GOSUB 2 
310 11 GOTO 620 

2140 IF Z=3 THEN A8=D208 11 GOSUB 2 
310 31 GOTO 620 

2150 IF Z=7 THEN CALL AR(SP1+1,6P2, 
8,2)1: CALL HCHAR(SP1+3,6P2+2, 
128) rt: GOTO 620 

2160 IF Z=@ THEN DIGPLAY AT(22,1)1” 
ALREADY MINED" 1: GOTO 620 

2170 CALL VCHAR(SP1+2,SP2+2,129,2)1 
» ORE=Z 1: IF Z>8 THEN CALL AR 
(BP1+1,6P2,8,2)11 CALL ARCBPI, 
6P2,8,2) 

21680 P1l=6P1+1 11 P2=6P2 1: GOTO 142 
o 


2190 DISPLAY AT(22,1): “YOUR DEAD!“ 
13 CALL SOUND(2000,220,0)11 CA 
LL S0UND(4000, 110,0) 

2200 CALL DELSPRITE(ALL) 11 DISPLAY 
AT (23, 13) 1 "SCORE: "1GOLD 11 DIS 
PLAY AT(24,1)1 "PLAY AGAINIY/N) 
7. 

2210 ACCEPT AT(24,17)VALIDATE(*YN") 
PAS 11 IF PA8="Y® THEN SCORE» 
O 13 CARSO 1: GOTO 160 ELEE CA 
LL CLEAR 1: 6T10P 

2220 DATA 2,9,G0LD RUSH, 4,5,BY bk. K 
» BALTHROP, 24,1, PREGG ANY KEY 
TO BEGIN 

2250 DATA 12,7, STANDBY PLEASE 

2240 DATA 1,1,LEVEL DF DIFFICULTY:, 
3,3, 1.MINE CDOK,5,3,2.NINER*8 
HELPER, 7,3,3.APPRENTICE MINER, 
9,5,4. MINER 


2250 DATA 11,3,5.NMINE FOREMAN,24,1, 
YOUR CHOICE?, 12345 

2260 DATA 24,17, “G0LD° 

2270 DATA 440,660,550, 660,770 

2280 READ IC,YC,A8 11 DIBPLAY ATCXC 
s YO) LAS 1: RETURN 

2290 READ XC,YC,A8 11 DISPLAY ATUIC 
s YC)LA8 13 ACCEPT ATCNC, YE+SLEN 
(AS) ) LAND 21 RETURN 

2300 READ IC,YC,A8,B8 11 DISPLAY AT 
(XC, YO) 1A8 11 ACCEPT ATC, YC+ 
LENCASI) VALIDATE (DA) 1 ANS 1: RE 
TURN . 

23510 DISPLAY AT(22,1)1A8 ao RETURN 


2320 DISPLAY AT(24, II)GBIZEC(16):A9 n° 
RETURN 

2350 CALL KEY(0,K,5)13 IF G@=0 THEN 
2330 ELSE RETURN 

2340 SUB AR(P1,P2,2,M) 

23550 IF Mes THEN 2570 

23560 DIM M6(19)11 PINS=SRPTO(CHRSO (1), 
20)1: FOR X=1 TO 19 11 MO(X})eM 
NO 13 NEXT X c1 GUBEXIT 

23570 IF M=2 THEN 2390 

23580 I1=ABC(BEG8 (M9 (P1),P2,1))10 SUD 
EXIT 

23590 M$ (Pi) =SE6G68(M8(P1),2,P2-1)&CHR 
(7) LSEGS (MS (P1) ,P2+1,29-P2)11 


Pare FINE 


54 LASSEMA IN ICALIAN 
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PROFILO LONGITUDINALE STRADALE 


Il] programma, in Basic esteso, elabora dati relativi al profilo di 
una strada. 

I valori che devono essere immessi sono : 

- le distanze parziali (fra picchetti) 

- le quote del terreno 

Istantaneamente ad ogni picchetto viene calcolata la distanza pro- 
gressiva e visualizzata. 

Lo schema di lavoro è il seguente : 


[numero picchetti | ______________ 
[distanze parziali _ | ___________N 
[distanze progressive [_______________N' 
quote terreno 

quote progetto |__| 
tenesse SI 


Dopo l'immissione dei dati si può verificare la correttezza dei va- 

lori e modificarli 

- premendo "C" = corregge - "R" = ricomincia - "T" = torna indietro 

di uno - "ENTER" = avanza di uno 

(Naturalmente le distanze progressive vengono aggiornate ad ogni corre- 

zione di distanze parziali). 

Dopo aver scelto il tipo di livelletta di compenso che si vuole usare, 

il TI/99 procede con 1'OUT-PUT dei dati elaborati 

1 - area del profilo 
- Z di progetto (quota di riferimento) 
- pendenze 
- quote progetto di ogni picchetto 
- quote rosse 

In questa fase j tasti di controllo ( R, T, ENTER) mantengono le ca- 

ratteristiche suddette, ma "C" permette un avanzamento di 10 posizioni. 

Ulteriori istruzioni vengono fornite insieme al programma. 


Francesco Cimadori 


IL PROGRAMMA E! DISPONIBILE COME SEMPRE PRESSO IL 
CLUB A LIRE 48.900. COME SEMPRE IL 50 % VANNO AL= 
AUTORE DLL PROGRAMMA, SOCIO FRANCESCO CIMADORI , 


IN PREPARAZIONE ALTRI 2 PROGRAMMI:. 
1) PROGETTAZIONE DISLLA VLANIMETRIA STRADALE ( curve mo= 
nocentriche e tornanti. 
2) PICCHETTAMENTI ( curve circolari con 5 metodi) 
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PICCHETTAMENTI DI CURVE STRADALI 





di Francesco Cimadori 









Il programma, in basic esteso, consente di calcolare i valori 
relativi ad una curva circolare (Raggio, Tangente, 8, a, Cor- 
da, Freccia, Sviluppo) usando il sistema di misura angolare 
centesimale o sessagesimale. 

La curva cosî calcolata può essere picchettata con 5 metodi 
‘diversi: 


- Ordinate alla Tangente (con suddivisione dell'angolo a) 
- Ordinate alla Tangente (con suddivisione dell'asse y in 
parti uguali Ax) 
Ordinate alla corda 
Coordinate polari 


- Radio-Tomico 


FRANCOMPUTER 





Questo programma fa parte di una biblioteca di topografia ri- 
guardante la progettazione di una strada e formata dai seguen 
ti programmi : 


1) PLANIMETRIA STRADALE : calcolo curve e tornanti 

2) PROFILO LONGITUDINALE della strada 

3) PICCHETTAMENTO di curve stradali 

4) SEZIONI TRASVERSALI stradali (2 pendenze) - disponibile da 
dicembre 

Poi, per tutti coloro che hanno a che fare con la topografia, 

uscirà a dicembre un programma che elabora : 


a) area di un quadrilatero (camminamento) 

b) risoluzione di un triangolo (5 metodi) 

c) area di una figura piana, note le coordinate cartesiane 
(Gauss) 

d) trasformazione angolare 

e) area di una figura a contorno curvilineo 

f) trasforiazione da cocrdinate cartesiane a polari e viceversa. 


Se ad esempio avete un pentagono potete scomporlo in 3 triango- 
li e alla fine il calcolatore vi darà l'area totale della figura. 





I 4 PROGRAMMI SONO DISPONIBILI A LIRE 28.000 CADUNO PRESSO 
IL CLUB CHE NE CURA LA DISTRIBUZIONE E LA VENDITA PER CON= 
TO DELL'AUTORE CUI VANNO SEMPRE IL 50% DEL RICAVATO. 
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PICCHETTAMENTO DI CURVE CIRCOLARI 


di francesco cimadori 
PROGRAMMA IN EXTEXDED DASIC 


E' DATA LA POSSIBILITA' DI OPERARE CON ABGOLI CEN- 
TESIMALI O SESSAGESIMALI; SE SCEGLIETE DI USARE GLI 
ANGOLI SESSAGESIMALI GLI INPUT DEVONO ESSERE DEL SE 
GUENTE FORMATO: Si 
esempio: eg=23°8'44" NOI SCRIVEREMO 23,0844 

ORA VIENE RICHIESTO IL METODO DI PICCHETTAMENTO CHE 
VOLETE USARE E POI I VALORI DELLA CURVA MONOCENTRI- 
CA: I DATI CHE VOI CONOSCETE DEVONO ESSERE IL RAG- 
GIO O LA TANGENTE E L'ANGOLO O L'ANGOLO B. 
ESEMPIO: 

CONOSCETE LA TANSENTE E L'ANGOLO ; IL CURSORE LAM- 
PEGGIA SULLA RIGA "INPUT RAGGIO?" E PREMENDO 'ENTER 
? FATE CAPIRE AL CALCOLATORE CHE IL RAGGIO E' INCO- 
GNITO. INFATTI VI VERRA' CHIESTA LA TANGENTE, 

LA STESSA COSA E' VALIDA PER L'ANGOLO % O L'ANGOLO 





PP. 
TRASCRIVETE I DATI RFLATIVI ALLA CURVA E SCRIVETE 
IL NUMERO DI PICCHETTI CHE VOLETE UTILIZZARE((IL ME 
TODO LO AVETE SCELTO IN PRECEDENZA): IL CALCOLATORE 
ACCETTA SOLO NUMERI PARI!. 
VIENE COSTRUITA UNA TABELLA GRAFICA DI LAVORO E I 
VALORI SONO VISIBILI IN 9 TERNE. 
FINITO IL CICLO IL PROGRAMMA RICOMINCIA CHIEDENDOVI 
IL METODO DI PICCHETTAMENTO E, QUESTA VOLTA, APPARI 
RA': "CAMBI DATI (S/N)?" (LA DOMANDA E' RIFERITA AI 
DATI DELLA CURVA). 
GLI ESEMPI CHE SEGUONO SONO RELATIVI A 10 PICCHEETI. 
COME NOTERETE IN FASE DI OUTPUT DATI DEI PICCHETTI 
NE VERRA' VISUALIZZATO UNO IN PIU' IN MODO DA AVE- 
RE TUTTA LA SEMI CURVA CALCOLATA ESSENDO SIMMETRICP 
LE DUE SEMICURVE (FATTA ECCEZIONE PER IL METODO RA- 
DIOTOMICO DOVE I PICCHETTI SEGUONO TUTTO LO SVILUPPO 
DELLA CURVA). 

ORDINATE ALLA TANGENTE 





NOTATE CHE IL RRI 
MO PICCHETTO HA 
COORDINATE NULLE 
E L'UNDICESIMO 
PICCHETTO E' IN 
MEZZERIA DELLO 
SVILUPPO CIRCOLA- 
RE. 

IN ALTO VIENE VI 

SUALIZZATO L'ANGO 

LO 3 DATO DA 


(F)/Piccnermi 





ORDIKAT® ALLA TANGENTE CON DX 
SEDINA O Aboi case. _____cr’r_- 


E' COME IL METODO PRECEDENTE 
MA L'ASSE X VIENE DIVISO IN 


PARTI UGUALI (DX) py- XM 
» ® 














COORDINATE POLARI 


RADIO-TOMICO 


LA CURVA VIENE PICCHET- 
TATA :TUTTA:IL 1° E 
L'ULTIMO PICCHETTO (11) 
SONO I PUNTI DI STAZIO- 
NE DEGLI STRUMENTI 

PET SCONO ANGOLI DA- 

TI DALLA RELAZIONE 


y:8-1 
Ist 


TN ALTO APPARE L'ANGOLO DI 


INCRESENTO DATO DA 
- Na 


"Pic 


ORDINATI 


CORDA 


VIEKLE PICCHETTATO SOLO 
META' SVILUPPO ESSENDO 
SIMMETRICO RISPETTO L' Al 
TRA META' n 


IL 3° PICCHETTO HA ASCIS 

SA NULLA E ORDINATACU- 

GUALE ALLA FRECCIA; 
L'ULTIMO (11) HA Cu- 
CRDINATE NULLE. 


IN ALTO VIENE VISUA 
LIZZATO L'ANGOLO XY 
DATO DA 


f = (5) /e1ccnerti 





ANCHE QUI VIENE PICCHETTATO 
SOLO META' SVILUPPO 

IL 1° PICCHETTO HA COORDI- 
NATE POLARI NULLE E L' UL- 
TIMO (11) HA COORDINATE PO 
LARI COINCIDENTI L'APICE 
DELLA CURVA. 

IN ALTO VIENE VISUALIZZATO 
L'ANGOLO $ DATO DA 


Y 43 }/r1ccnerTi 


K 


PROGRAMMA N. UG 


DESCRIZIONE DEL PROGRANLMA-SUBROUTINE "PIXEL TRAIL CIRCLE" 


Occorre premettere che le funzioni CIRCLE e TRAITII sono indivisi 





bili dalla funzione PIXEL (da loro utilizzata). 

Tali funzioni servono per sfruttare da linguagzio extended basic 

la massima risoluzione video del TI 99 fossia 192 X 256 pixel. 
Quindi, righe e colonne vengono fornite a tali funzioni con valori 
compresi, rispettivamente, tra 1 e 192 e tra 1 e 256. 

11 programme è taie.che il plottaggio di un punto all'interno di un 
carattere non distrugge o falsa l'informazione che vi era preceden» 
temente memorizzata, 
FURZIONE "CIRCIE"—————& 

Con una istruzione del tipo: 


CALL CIRCLE(R1,C1l,r) 





il TI 9S disegna sul video, in alta risoluzione, un cerchio di rag 
gio r e con il centro situato nella riga R1 e nella colonna Cl; 

il listato (10000-10140) è molto chiaro: viene utilizzata l'equa- 
zione della circonferenza Gate le coordinate del centro. fer evitare 


una discontinuità nel tracciamento del cerchio, viene fatta variare 


Cc 6 





è°> 
Q 


toi 


la Y nel tratto A-B (e E-F), e la X nel tratto @-G (e D-H), 
Il programma verifica che la circonferenza non esca dal video e, in 
tale caso, segnala l'errore e ferma l'esecuzione, 


FU:ZIONE "IRAIL"----- allezo il dia;ram.a di flusso 
Con una istruzione del tipo: 
GALL TRAIL(R1,C1, 82,02) 
il TI SS traccia sul video un segmento fra il pu.:to Gi coordinate R1, 
C1 eò il punto di coordinate R2,C2, 


A 


Come nella subroutine CIRCLE è stata utilizzata l'equazione della cir- 


conferenza, nella subroutine TRAII viene utilizzata l'equazione del- 
la retta: Y=l X X+N in cui m è il coefficiente angolare ed n il coef- 
ficiente posizionale, 


Per quanto riguarda l'addensamento dei punti: 


i PX — 1 +PrA 





X 





se PX (proiezione sull'asse X) è maggiore di PY (proiezione sull'as- 
se Y), viene fatta variare la X (colonna); viceversa, viene (se PY 
è maggiore di PX) fatta variare la Y (riga). Questo per evitare dis- 
continuità nel tracciato, 
FUNZIONE "PIXEL"-----allego il listato 
E’? il "cuore" di tutto il programma-subroutine, La funzione PIXEL 
viene utilizzata continuamente dalle funzioni TRAIL e CIRCLE (ma può 
anche essere utilizzata da sola, come tale). 
E' da questa funzione che dipende tutto il programma (e la sua ve- 
locità di esecuzione più o meno elevata !!!). Quella che vi invio 
è la versione ottimizzata; per ora non sono ancora riuscito a fare 
di meglio (=maggiore velocità di esecuzione). 
Con una istruzione cel tipo: 
CALL PIXEL(R,C) 

si "accende" sul video il pixel situato alla riga R e colonna C. 
R compreso tra 1 e 192 e C compreso tra l e 256, 

cesso 0ANALISI DEL LISTATO E DESCRIZIONE DEL FUNZIONAKENTO, + 000. 
10500 -rindirizzo della subroutine PIXEL.Riga in R, colonna in C 


10510 -—se è la prima volta che viene utilizzata la pixel (ossia 
quando V è uguale a zero), vengono eseguite le linee 
10520+-10530-10540, se no salta alla linea 10550, 


10520 caricamento in HEX$ dei codici binari ed in X$ di quelli 
esadecimali corrispondenti, utili per le conversioni da 
esadecimale a binario e viceversa. V viene posto uguale 
ad 1 ed contatore caratteri uguale a 32, 


10530 -codici binari ed esadecimali 


10540 
10550 
10560 
10570 


10580 


10590 


10600 
10610 


10620 


10630 
10640 
10650 


10660 


10670 
10660 


10690 


-codici binari edcesadecimali 
-Geterminazione della riga RI in bassa risoluzione (1-24) 
-determinazione della colonna CO in Db. risoluzione (1-32) 


-Geterminazione Gel P-esimo elemento da variare all'inter- 
no del codice binario che sarà ottenuto come traGuzione del 
coGice esadecimale (da variare) dell'identificatore di sa- 
goma.P può variare da la 4. 


determinazione dell'elemento E-esimo da variare all'interno 
della stringa di 16 elementi esadecimali Gell'identificato— 
re Gi sagoma. 


-—richiesta del codice CAR del carattere preesistente nella 
posizione richiesta. 
-richiesta dell'identificatore di sagoma af 


-Se si tratta di attivare il pixel in un carattere libero, 
ossia il 32 (spazio vuoto), viene incrementato il contato- 
re Gei caratteri utilizzati (CARZ) ed il suo valore viene 
trasferito anche in CAR (utilizzato in 10670). La tradu- 
zione V$ binaria Gi codice esadecimale deve essere,logica- 
mente, azzerata trattandosi di un carattere "tutto spento". 
L'esecuzione passa alla linea 10640, 


-in z$ viene posto il codice esadecimale da variare per otte- 
nere il nuovo identificatore di sagoma. 


-coyersione Gell'esadecimale 2$ in V$ binario (di 4 elementi) 
vi viene imposto con il F-esimo elemento uguale ad "l"(attivo) 


-—il codice binario Vh viene ora riconvertito in un codice 
7 


esadecimale Z 


—viene "ricomposto" il nuovo identificatore di sagoma (BÈ), 
inserendo nel vecchio Ab il nuovo elemento, variato, 4. 


-—riformattazione del carattere CAR. 


-stampa Gel carattere (l'istruzione é in realtà operativa so- 
lo se si tratta di un carattere appena definitò, ossià di 
un pixel attivato in un carattere "nuovo"); nel caso di ri- 
Gefinizione di un vecchio carattere,la CALI CiiA©u di linea 
10670 lo ristaupa già di per sè, 


-fine Gella subroutine. 














GOTO 15 63 CALL CLEAR 
Si Riki 300) 10 HO 44 MEMO... BORDER... 





































2O1E N27 THEN 15 #5 Fi LOL = 10 46 
33 dora 40 bb N-INT((4-101) SANDI +4 x 
34 1F Na15 THEN 15 67 CALL HCHARI14,32-C0L, 9548) 
35 EVENTEST=N/2-1NT (N/2) Lod cip HCHAR LIO: COL SRI 
FRED ELLI 36 IF EVENTEST=0 THEN 40 pad nos ig UA 
RENO 99"EH VERGION i. &. 1 37 GUIDO 15 Tor RN) 
REM ABOUT 4504 BYTES 38 REMO 4TH & STH RObiti NU FAI ONIVARANI PRESE: 
REM HOLD DOWN ANY KEY TO STOP CONSIRAINIS T2SCAL istraliivazz os 
DISPLAY 39 REM FOR N>9 MUST CONVERT EAT ROW » , 
U CALL SUCREEN(B} TO HEX NOTATIUN, NOIE IN HEL 74 NE Tie 
#4 CALL COLORI, 10,0) NGIATILN Ae10,B=11,C-12 ETC, 75 REM a tigre: sui 
LO REM HilaLb RANDOM LHAKAL Ei 40 1F N>® THEN «i ELLE n4 si [tal riproigl ai 010,32, 
LI RANDOMIZE 41 UN N-9 UUTO 42,44,48,40,50,52 TR IOUla 
12 FOR J41 10 4 42 Ge=cA° 1 
15 FOR 1-0 FO LU 43 0010 55 (e) READ LENER 
hi tria I n'u' and nor. E pa Wwia.sa @L CALL HIEHARAZ CEL RT 
15 N>INI (015-071) 8HND) +4 4à Gee =C* pri Nifgia FICHBR AF ERE 
fb REMO PUT ON CUNSTAAINIS IL 47 GOTO 3% IRE PRA 
EL IMANATE. CUNNERS 46 Ge="D" Go Ren 
Lr GO La ar patent Prata B5 COLUMN INT ((26-6+1) BRND) 6 
n CARA EOT Ian NOUS e 3 auto ss 07 N=INT((4-1e 1} 6HND)*1 
18 REM TOP & BOTTUM ADWS A SUTO.S BCIN I va 
20 Muro agion) da 53 6010 55 89 CALL HCHARC14, 32- COLUMN, 9S+N) 
21 IF N=0 THEN 40 54 GE=STR9 (N) A TESE Ten Gà 
22 1F N=@ THEN 40 55 HEXS=HEXSKG® DE TREN ZA 
23 GOTO 15 56 NEXT I 92 CALL Ki quae 
24 REMO 2ND & 7IH ROM 7 CALL CHARL9D+) , 1HEX68} : Aitina a 
25 IF N)3 THEN 15 5a Goto 59 eis 
26 GOTO 40 59 HEXS="" 
27 IF N>12 THEN 15 60 NEXT J° i 
28 FOURTEST=N/4-1NT (N/4) 641 REM DISPLAY TITLE 


IF FOURTEST=0 THEN 40 62 DATA 57,57,39,69,82,32,77,65,71,65,90,73,70,69 


























































350 REM +++ THUNCATE FIASTWORD +++ 840 REN = 
340 CALL CLEAR 850 REM THIS OPEN STATEMENT MAY NEED TO BE MODIFIED 
370 INPUT “TRUNCATE HOW MANY BYTEG?“1:BYTES | 860 REM FOR YOUR PRINTER...... 
380 MANBYTES=LEN(B$)-3 270 OPEN #11°RAS232/2, DA=E. BA=9600" 
390 IF BYTEGCMAIBYTES THEN 420 880 REM ----——-------ecocoocoe-_o-ccon—__—______- 
400 PRINT "TOO MANY BYTES...." &90 CALL CLEAR 
410 GOTO 370 900 PRINT “ENTER THE WORD WHDSE DATA 
420 1F BYTES)-1 THEN 450 YOU WANT TO PRINT-- “sn i 
430 PRINT “NO NEGATIVE NUMBERS" 910 GOSUB 1230 
440 GOTO 370 920 IF L=0 THEN 1070 
450 LanAXBYTES-BYTES 930 VALUEGS="" 
460 C8=SEG®(B6,1,2)&CHAS (L) LSEG8(B8,4,L) 940 PRINT ei: 1 a "THE WORD IS 88 “pWQ0RD9," 88": 
470 RETURN 950 PRINT @11 "LENGTH =",Ly“"BYTEG"1 © 
480 REM +++ SPEAK NEW LORD +++ 960 FOR I=1 TOL 
490 CALL CLEAR 970 VALUESS=VALUESSESTR® (ABC (SEG$ (F8,4,4))) 
300 CALL SAY(**,NEWDATAS) 980 IF 1/10(>INT (1/10) THEN 1020 
510 INPUT "SAY AGAIN? (Y OR N) "aCHOICES 990 PRINT @1:"DATA “}VALUESS 
520 IF CHOICE08=“Y° THEN 500 1000 VALUES®=»"" 
330 RETURN i 1010 GOTO 1030 
540 REM +++ JOIN TWO WORDE SUBROUTINE +++ 1020 VALUESS=VALUEBS", © 
330 CALL CLEAR 1030 NEXT I 
560 PRINT “ENTER FIRST WORD TO JOIN” 1040 IF VALUEGS="" THEN 1070 
570 INPUT FIRSTWORDS 1050 VALUESS=SEGS (VALUESS, 1, LEN(VALUESS) -1) 
580 IF FIRSTWORD$=LASTMADE® THEN 610 1060 PRINT #11“DATA ")VALUESS 
ala 7 { 590 CALL SPGET(FIASTWORDS, B$) 1070 CLOGE #1 
sbisting Ai AS Cc 400 GOTO 620 10B0 RETURN 
100 REM «r+ttrresereorerirererive 410 BI=LASTDATAS 1090 REM +++ ADD NEW WORD TO VOCABULARY FILE +++ 
410 REM + VERBOSE * 620 CALL CLEAR 1100 CALL CLEAR 
120 REM + * 630 PRINT “ENTER SECOND WORD TO JOIN" 1110 PRINT “PUT THE DISK WITH “"MORDE"* FILE IN DRIVE ONE,® 
130 REM + BY DAVID G, BRADER * 640 INPUT SECONDWORDS 1120 INPUT “PREGS ENTER WHEN READY “1X$ 
140 REM + * 650 IF SECONDWORDS=LASTMADE® THEN 680 1130 PRINT 1 3 1 “ENTER THE WORD WHOSE DATA 
150 REM + 99°ER VERBIDN 1.6.1 + 660 CALL BPGRET(SECONDWSORDI, DI) YOU WANT TO SAVE-- “ooga 
160 REM + . È) #70 GOTO 490 1140 GOSUB 1230 
170 REM rererrerseeeesireoreseti 6&B0 D$=LASTDATAS 1150 IF L=0 THEN 1200 
180 REM #90 CALL CLEAR 1160 UPEN #11"DSK!. WORDS", INTERNAL, APPEND, VARIABLE 254 
190 REM GPEECH MAKER ROUTINE 700 PRINT “ENTER THE SPELLING OF THE 1170 PRINT ®1:WORDS 
200 REM WILL COMBINE WORDS INIO NEW STRINGE. NEW WORD" 1180 PRINT Mi:FO 
210 REM : 710 INPUT NEWMNORDO 1190 CLUBE BI 
220 CALL CLEAR 720 REM 1200 RETURN 
230 PRINT “" +++ WORD BUILDER e+e'i 1 03 3 750 GO SUB 350 1210 AEM 
240 PRINT “ENTER NUMBER DE YOUR CHOICE": a 740 NEWDATAS=C8LDS 1220 KEM +++ FIND WORD SUBROUIINE 
250 PRINT 3% 1 - JOIN Tel WONDS": a 750 GO SUB 480 1230 INPUI WORDS 
200 PRINI * 2 - PRINT SPEECH DALIA": è 760 PRINT * 1 - CHANGE SONE MORE": 1240 Fase" 
270 PHINI "3 - BIDKE NEW WOKD UN DISK": 3» S 2 - BACK TO MAIN MENU" 1250 1FWDHDS:"" THEN 1300 
200 PRINT "4 - EXIT": 1a 770 INPUT CHOICE 1260 IF WUKD®=LAGTIMADL® THEN 1290 
290 INPUT CHOICE 740 IF (CHOICE<1)+ (CHOICE}2)«-1 THEN 760 1270 CALL SPGET(WORDE,F 8) 
300 IF tCHOICE<1)*(CHDICE)4)»-1 THEN 22Q 790 1F_CHOICE=1 THEN 730 1240 GUIO 1506 
310 ON CHOICE GOGUB 550,870,1100,330 #00 LASTMADE $=NEMWORDI 1240 FS-<LASTDATAS 
320 GOTO 220 810 LASTDATAS-=NENDATA® 1300 LeLENIF6) 
330 CALL CLEAR 820 RETURN 1310 Ke TURN D 
END REM +++ PRINI SPEECH DATA SUBROUTINE +++ 





Listing 

1 KEM (1) 

2 REM 

3 REM 

4 REM BvY FRED ELLIA 

5 REM 99'ER VERSION 1.6.1 

4 REM ABOUT 5392 BYTES 

7 REM PRESS ANY KEY TO 
STOP DISPLAY. 

@ VERTICALMAXY=200 

 BCALE=VENTICALMAN/20 

10 CALL CLEAR 

11 LABELS="ENTER HORKGEPOWHER"® 


























NEXT CODE 
42 firm SIARI SCHEIN DISPLAY 
43 REM ---6RAPH GRID--- 

44 CALL HCHAR (22,13, 104, 18) 
45 FUR ROW=21 TO 1 STEP 1 
46 CALL HUMARIROW, 14,91,17) 
47 Mi al dl 

48 LABEL è= “HORSEPOWER" 











THIRD ROW ON 

29 DATA 9H, 0000000000FFFFFF, 
FOUKIH, 99, 
OOLUULUOFEFFFEFF E IFTH, 
100, CUOWOOFFFFEFFFFF, 
6IXTH, 101, 








E} 
HCHAR (21-Y, 16,99, 
ee 
HCHAR (21-Y, 16,99, 
86 




























12 ROW=12 O000FFFFFFFFFFFF HCHAR(21-Y,16,100,3) 
13 COLUMN=15 30 DATA BEVENTH, 102, se ina 
4 9 O0FFFFFFFFI HCHAR(21-Y, 16 
VI ROGUB 31 È da TEFFEFF, CALL VCHAR(1,13,92,21) ee ESE 
15 LABEL&="0 TO 209 EIGHIH, 103, A 

CES SARAI 53 FOR ROW=21 TO 1 STEP -5 HCHAR(21-V, 16, 102,3) 
6 ROW=13 FEFFFFFEFFFEFEEF 16,102, 
17 COLUSI=19 SI RERI CE RAREL Et 54 ROWNUMBER=200- (108 (1t0W-1)) es 
18 GOSUB 91 32. DATABASE. 168 55 LABEL&=STR$ (ROGNUMBER) HCHAR (21-Y,16,103,3) 
19 INPUT < FF0000FF G0O0000FF SERRA. GUTO Ra 


37 GOSUB 91 
58 CALL HCHAR (ROW, 13,93) 
59 NEXT ROW 
60 REM CALCULATE BAR HEIGHT 
41 BARHEIGHT=HDORSEPOWER/SCALE 
62 Ya INT (BARHEIGHT) 
63 REMAINDER=BARHE IGHT- INT 
CHARHE IGHT) 
64 CALL VCHARI(22-Y,16,103,Y) 
65 CALL VCHAR(22-Y,17,103,Y) 
66 CALL VCHAR(22-Y,18,103,Y) 
67 REM SELECT BAR TOP 
48 TOPPATTEKN= INT 
{ (REMAINDER80) +, 5) 
69 UN TOPPATTERN+I GOTD 70, 
72,74,75,79,80,02,84,66 
70 CALL HCHAR(21-Y,16,96,3) 
71 GOTO 88 
CALL HCHAR(21-Y,16,97,3) 


HORGEFOWER 

20 CALL SCREENIE) 

21 CALL COLOR(9,13,8) 

22 CALL COLOR(10,2,5) 

23 REM DEFINE CHARACTERS 

24 REM FORMATI 
IDENTIFICATIONI, 
CHARACTERNUNBER, 
MEXADECIMAL®... 

25 REM ---GRID--- 

26 DATA GRID LINE, 91, 
0000000G000000FF, 
VERTICAL AXIS, 92, 
0101010101010101, 

TIC MARK,93, 
010101010101017F 

27 REM --DEFINE BAR TOPS-- 

28 DATA BOTTOM ROW OF PIXELS 
ON, 78, 0000000000G000FF, 
SECOND ROW ON, 97, 










33 REM DEFINE LOOP 

94 RESTORE 26 

35 FOR CUOE-91 10 104 

36 READ IDENTIFICATION, 
CHARALTERNUIBER, HEX® 

37 IF_CHARACTERNUMbER>CODE 
THEN 39 

3a GOT0 40 

39 CODE=CHARACTERNUNBER 

40 CALL CHARICODE,HEX8) 


CALL HCHAR(21-Y,16,103,3) 
CALL HCHAR(20-Y,18,96,3) 
CALL KEY(0,K,S) 

IF &=0 THEN 88 

END 

FOR POSITION=1 TO 

LEN (LABEL 6) 

LETTERS=SEG$ (LABEL ®, 
POGITION, 1) 

CODE=AGC (LETTERS) 

CALL HCHAR (ROW, 
COLLMN-1+POSITION, CODE? 
NEXT POSITION 

RETURN 








































130 
120 
130 
140 
150 
160 
170 










140 
















310 
320 
330 









100 


sio 
320 


530 
340 


#30 


#20 


630 


0404CALL CLEAR 11 CALL HCNAR{4,4,30,M+2)11 CALL NCHAR(M+3,4,30,M+2) 


so 
tro 
670 
6080 
090 
700 


710 
720 
7530 
740 
250 
760 
770 
760 
790 
6400 
#9 
dzo 
nio 


8406 
uso 





Spriter ,.. from p. 45 





1 NEXT | sa GOTO 250 


: EX. 0. Listing 1. 





REM 
REN 
REM 
REM 
REM 
RED 





BY FERNANDO CARACENA P 
99° ER VERBION 1.5. 1Xd x 
CALL CHARGET 11 FOR 1=9% TO 143 13 CALL CHARCI,""}ro NET I 


INPUT * DO YDU HAVE A THERMAL PRINTERIY/N)?"1TPS8 
DIM CHAV(S0), 1D6 150) 


INPUT “DO YOU WANT TO INPUT A FILE GF CHARACTERS FROM TAPE 


OR DISK (Y/N)?2°1AN0 11 IF ANSC>)"Y* THEN 246 


DISPLAY AT(I24, 1) e “FILE NANE® 13 ACCEPT ATI(24,11)612E (10) 
VALIDATE (UALPHA, DIGIT) (NAMS 11 IF POBLNAS,**,1)<70 THEN 200 
PRINT “ENTER *1' FOR TAPE *2' FOR 


DIBK“ s1 INPUT *(1/2)7°tAN6 

IF ANG="1° THEN FILE6="C81% ELSE IF ANS="2* THEN 
FILES "DK. "ENANS ELGE GOTO 210 

CALL CASTERIAFILES,NG, 1081) , CHAG()) 1: GOTO 250 
TE ANSCI"N® THEN 190 ELSE N60 11 GOTO 290 

IF TP9S"N" THEN 260 È 

OPEN @1i"TP.U.E.6*,0UTPÙT 13 FOR Je0 TO NG 


PRINT @113, ID6 CJ) 10 NEXT ‘J 00 CLOGE ei 
NG=M6+1 30 CSSCHABLO) 

FOR lsNS TO 1000 

CALL DAAMER(TP6, CO, NG, ANS, CHAS() ,IDOLD) 
DISPLAY AY(2,1)a ID0 (NS) 10 DIGPLAY AT(‘22,4)3C68 
DIBPLAY AT (35, 1)1 “"PREGS ANY KEY TO CONTINUE." 
CALL, KEY (0,K,8) 13 IF _S=0 THEN 3350 







Listing 3. 








FOR Ks0 TO NS 19 PRINT @10ID0CKK), 

CHAS (KI 41 NEXT K 13 CLOGE I REM 0808 
END ito AEM 8 
SUB DRAMERITP®,C8, NS, ANS,CHAS(), 120 REM 







1090) ) 10 CALL CHARIIS,RPT8(*F",16)) 130 HEM 
1F C®m"" THEN 560 : 140 REM 
INPUT "00 YOU WANT TO INITIALIZE WITH AÎ 190 REN 





PREVIOUSLY DEFINED CHARACTERLY/N) ?"1:ANs 





CALL CLEAR 







1F ANG="N" THEN C62°" 11 GOTO 580 ELLE 580 DATA Man#4, (0001224 1C0C1C2C4E14060070802020#0000000 

IF ANSC>"Y* THEN 340 170: DIM 1861?),C8817)) 00000000000 40K00000000000 i 

INPUT “ENTER INDEI OF CHARACTER 160 GOSUB 250 :CASTEK 390 DATA MANES, 010000000000000387F DE 96624281000 10000000 
190 FOR is0 TO N 01 CALL CHAR(1IO-481,C801)) 0000020508 





DESTRED,ANY *-' VALUE FOR MOBT 




















"8603036 
SPRITE DEMO 2 














IIC 100 REM 2630330504 206000686 260 END 
Listing 2. 110 ren a - ePRITE Demo E 270 SUB 
° 120 REM danese sac 260 REM 
: ‘ 330 -REN ù 296 KEM 
EX 140 REM &Y FERNANOO CARACENA 300 REN SET FILES=°GS1 
‘ 150 REM S9"ER VERSION 1.9, 138 DIC REM TAPE FILES) USE YOUR 
> 160 REM 320 KEM FILE NARE: © 
170 REM DENONETRATION DF SPRITE 330 TEM “"DSK1.FILENAME* 
ANIMATION USING CABBETTE 340 MEM FOR DISK FILE 
OR DIEK DATA FILA, 350 REM 8833800 398 
150 CALL CLEAR 360 REM 
NOTE: »-> 190 DIn chae(17:, 100117) 370 OPEN 62:FILES, INTERNAL, 
For Longer 99 CALL CASTERINS, 1081), Cas (> INPUT ,FIXED 120 
210 FOR I=0 TO NS tr CALL I80 INFUT BZINANS,N 
Loops use a CHAR (136-481, Cha (1) 390 FOR Isù TO N 
220 NEXT I 400 INPUT B2:I9(1),C84I}a 
Larger DIM 350 ca cura 1 NEXT I 11 CLOGE #2 
240 CALL SPRITE(01,136,2,39,30,0, 410 SUBEND 
-10)11 CALL MAGNIFYC4) 420 SUB DELAY 
230 FOA I=0 TO NS ti CALL PATTERN 439 FOR I=0 TO 15 13 NET 1 
(01,136-48/)11 CALL DELAY ©? 440 SUBEND 


340 


370 


390 
400 


410 
420 
430 
440 
430 


440 
470 


480 
490 


ai 


080809080 




























CALL CLEAR s0 
CALL CHAR(96,C&111 CALL BPRITE (81,96, C01,30,30,0,730)41 CALL MAGNIFY(4) 






SPRITER 


Main 
Program 










Vo 
OPTIONS 


READ & ? 
PRINT OLD 
FILE 

220-270 


DAAW ASAVE 
SPRITE CODES 












170-210 


CASTER 
1280-1390 


DRAWER 
520-910 






Order ot 


Subpragram 
CALLS 





EexPanpER?!! 
1110-1220 


ADDPIX 
970-1100 













Order ot Program Execution 


INPUT “ENTER COLOR CODE FOR SPRITE. “1iC0L 


DISPLAY AT(10,3)1*PREGS ANY KEY TO CONTINUE," 


CALL KEYIO,K,6)ss 


INPUT "DO YOU MANT TD SAVE THE CHARACTER CODE OF THIS GPRITE(Y/NI) ?°"1AN8 
IF ANS=*Y" THEN CHA (NG) =C8 

INPUT “DO YOU WANT TO CONTINUE LY/NI) ?° (ANS 11 IF ANG="N" THEN 450 GLSE 
IF ANO<I"Y? ThEN 400 

N“enNS+1 

NEXT 1 si END 

INPUT "DO YOU WiSH TO SAVE REBULTE ON TAPE DR DIBKIUYZ/N) ?2°1AN9 

IF ANS=®"N" THEN SLO ELGE IF ANSC>"Y" THEN 450 

DISPLAY AT(24, 1): “ENTER FILE NAME” 11 ACCEPT AT(24,11151ZE(10) 

VALIDATE (UALPHA, DIGIT) NASO 11 IF POSINARO, * *,1)<>0 THEN 4350 


PRINT “ENTER 
IF ANSe*1% THEN SFILES»"CBI° ELSE 


ELSE GOTO 


OPEN #1:19FILES, INTERNAL, OUTPUT,FIXED 120 


IF B=0 THEN 370 ELSE CALL DELSPRITE (ALL) 


‘1’ FOR TAPE "2° 


1F_AN9e*2° 


FOR DISK" 10 INPUT 
THEN @FILE Be" DUI. “LNANS 
+e 


PRINT eLinare, NG 







99'ERA VERSION 1.5.1XB 
DEMONETRATION UF SPRITE ANIMATION 
USING DATA BTATEMENTE 


CALL SPRITE(01,136,2,30,30,0,-40)13 CALL 


CALL PATTERNIB1,1356-481)1 


RECENTLY DEFINED*(NOS | RL e 

1F NOGCO THEN 5680 ELSE COSCHAS (NOS) 1 22 

1 NIN=NOG 1» GOTO 990 MAGNIFY (4) 

NUKeND=i 230 FOR 1=0 TO N 10 

Melé ti IF LENIC8)=0 THEN 1 GOSUB 300 12 NEXT 1 1: GOTO 230 
C8sRPT9(*07,64)11 Fe0 ELSE Fei 240 END 

1F LENICOI Si6 THEN CseC8&RPT8(*0",46) 250 REM SUBROUTINE CAGTER 
Na] 11 CASSGEGSGIC8, 1, 1&}1 260 READ Nanme,N 

1 C2006EG8(C8,17,16)1 279 FOR I=0 TON 

1 C30-6E68(C8,33,10)1 200 FEAD 16(1),C801)11 NEXT I 
1 C48=6£G6(C6,49, 16) 290 RETURN 

FRINT “USE ARROW KEYS AND 'i,R,C,7' TO | J00 HEM SUBROUTINE DELAY 
ROVE CURBOA,OR TO QUANGE POLARITY Stu FOR J=0 TO 15 11 NENT J 
USE ‘F*FOR DARK AND “A°FOR LIGHT.* 320 RETURN 

CALL KEYIO,K,6)s1a IF Ss0. THEN 650 


CALL VCHAR(D,4,30,M) ss CALL VCHARIS,M+5,50,M)11 
IF ANG="Y® THEN CALL EXPANDER(C8,X,Y) 

IF NIX)=0 THEN DISPLAY AT(2, 121 IDOCNEKI 11 
CALL HCHARIN,Y, 30,144 
CALL KEYIL,K, 6) ; 

IF S=0 THEN 590 ELGE IF Nei TREN CALL HCHAR(X,Y,33,1) 
ELSE CALL NCHAR(E,YV,32,1) 

IF hei ThEN Neo 

IF Ke12 THEN Nol 

1F K=5 ANO X>S THEN XwX=]} 

IF KO AND X<Me4 THEN X=kKei 

IF K=2 AND Y>S THEN Yav-1 

IF KeJ AND Yer+4 THEN Yavei 

Ke4 AND 129 THEN IF Y25 THEN Xed-i 16 
Keo AND 123 THEN IF Yurie4 THEN XeX-1 
K®15 AND XKMe4 THEN IF Y>5 THEN Kuk+1 


XL, Yei 


NO, YO=0 13 CALL ADDPIKLIKO, YG,N,C9) 


Yav-i 
ta Yavel 
da Yav-} 





IF K®14 AND N<Me4 THEN IF Yome4 THEM XoX+l 11 Yovyel 

IF Ks16 TMEN 9200 

IF 24 AND 5615 THEN IF Y74 AND YC13 THEN Pel ELSE Pag 
ELSE !F Y>4 AND YC13 THEN Pe2 ELSE "Pe4 

IF Pe) THEN X00X-5 11 Yoay-5 CHI<SEGS (C8, 1,16) 

IF Pe2 THEN NOSX-13 11 YO®Y-5 1a CHO=SEG6 (C8, 17,16) 

IF P=3 THEN XO=X-S 11 YosY-13 12 CH6«SEG61C8, 33, 16) 





IF F=4 THEN X0eX-135 20 YOaY-13 10 
CALL ADDPILS4O, YO,N,UN6) 

IF P=} THEN Ci8aCN0 ELSE IF F=2 THEN C26=CHo 
ELSE IF P=3 THEN CI$"Cht ELGE C Cho 

CALL MEMAR(Z, Y, 30, \)ur LSaC198C28kC38&C46 11 
DISPLAY AT(22,1)1 "ENTER SFRITE NAME." 11 
*" 41 DISPLAY ATI24,1)e"" 

ACCEPT AT(2I, 1/3 IDB (NGI 


CH$=SEG9 (C8,49, La) 





GOTO 499 
DISPLAY ATE23, Da 


1F_TP@s"N" Tuen SUGEAIT 
DISPLAY AF <22, 1) 1 "HANT TO COPY QN T.P.(Y/N)?" s0 
IF ANSa"N° THEN SUBELIT ELSE IF ANS<>)"Y* THEN 930 


DISPLAY AT{2, 1) sID6 (NS) 13 DIGPLAY AT(22,1)1C8 


CALL SCREEPT +11 SUBEND di 
SUB ADDPIKIN, V.,N,C8) 
DEF BAI INT NH/ 12°A))-20INT(NH/ (27 (A1))) * 


IF YS4 THEN Z=>28X+1 311 YOsI-Y ELSE 2=208K+2 10 YOm7-Y 


DIGPLAY AT(22,1)1C8 


ACCEPT AT(235,1); ANS 


41000 
1010 
1020 
1030 
1040 
‘1050 
1060 
1070 


1090 
1100 
iu10 
41120 
4:50 
dic 
1150 
1160 
1170 
tieo 
1190 
41200 
1210 
1220 
4230 
1240 
1250 
1260 
12790 
1200 
12% 
15090 

inuo 
1320 
4330 
1340 
1359 
1569 

1370 
1580 
1390 


339 
340 


DATA MANSN@I,12 
0000000000000202080000000 
08090D0A080808GA080804000 


000000080 4080000000000 0000 O 
370 
0000000000000000000B04 080 


400 
OOHOGO 

410 
00000000000000000000000 08 

420 
G00000000406G00)000080 4020 

430 
44850 A0COC0B08000000O0O0O 

340 
000000000000020 

450 
14080 

460 
0000000804 0800000000000000 0 






A29=SEG8 (C8,I,1) 
IF ZD1 THEN AI$=SEGS(C8,1,Z-1) 

IF 1416 THEN AIS=SEG9(C8, Z+1, 16-71) 

NHSASC (826) 11 LF Nt(=57 THEN Mi=htt-49 ELSE Niteni=33 
B(YO}sU AND N=>l THEN Nrientie2*YO 

B(YOl=] AND N=0 THEN Nitenii-2°YO 

Nii<=9 THEN A28>5TR$ (N)ELGE AZB=CHR9 (NH+55) 

1%.6 THEN Co=A184A26 

Zi TREN C8=A28k0436 

IF I<C>16 AND Z%>1 THEN COS A188A26kAJd 

SUBEND 

SUB EXPANDEA (C68, X0, YO) 

DEF BAI =INTUNHZ/ (2°) )-201NTINF/ (2% CA+1))) 

FOR Iso TU 15 11 FOR J=0 TO 15 

1F 337 THEN JO=J-8 ELSE Josy 

IF 127 THEN 10°1-9 ELGE 1005 

IF 
IF 3004 TMEN Z=281001 
em 

A20=5EG08 (C8, /ri6g (L-1), 
Nin ASCCAZO) 10 


#6 Ye3-JÙ ELGE 20201012 10 Ya7-JO 


La) 
IF Ai<c=i37 FHEN Nisot04-40 ELGE NMoti-55 


IF biY>=1 THEN CALL HCHAR(IO+1,YO*3,33,1) 
NEAT Jo 1: NEXT 11: SUBENO 
SUB SCREEPT 


OPEN 02551 “TP.U.E.S°, 
FOR Y=1 TO 13213 


QUTPUT 10 FOR X=l TO 24 11 H0=°®* 
CALL GCHARII,Y,Zl:s G6=568CHA8(2) 


NEKT Y si PRINT 8255156 04 NEXT 1 100 CLOGE 6255 
SUBEND 
SUB CALTERCSFILES, N, 19(1,C80)) 


OFEN 82:FILE8, INTEHNAL, INPUT 
INPUT AZ: NAMO,N 

FOR lesu ION 

INPLUT #2110411,C601)13 NEKT © 
NI=23 b1 Ni=0 03 IF No=24 THEN NDeN ELLE N2=23 
FOR I=Ni TO N2 s8 IF 1: Inn 1390 

PRINT Ip}I8{I}sa NEXT ? 
PRINT “PRESS ANY KEY 1 
CALL KEYIO,K,S)a0 IF L 
1FONDNI THEN NIoNI+24 
BUBEND 


«FIXED 128 11 GOTO 1300 


11 CLOSE #2 





N20N2124 13 NJoNJ+e24 10 GOTO 13540 






Figure:1, 













RECORD * 
OUTPUT 



















O 
SCREEPT 
1230-1270 








"(4/2 ?°1AN60 






DATA MANSI,00040909060FOFOF 1E040FOF 190804080000000 
DATA MANA2, 0304040307072F 1303010706040207 000060800 
DATA Mane2.3, 060909040FOF 172604040k1EA242010300000 


DATA MANSI, G007090IO60OFOFI 72F0604040F09P08180000000 


DATA Alvise. GODEISZA 1 AGCOCOCOCICIEIE1€100C100000000 
CATA NAMES. 00000040201 84C7C0C0C06040#090£0400000 
DATA MAN®P7, 0000006000000004080402F 1E37640C00000000 
DATA MAN#E, 0000001 10A06030101010301042A12060000008 
DATA MANEI, 00v60909040FOFOF 1E060FOF 1 0004080000000 
DATA MANEI, 00070903060F OF 172F06061060F 090810000000 
CoCCOOVI0INI0NNI00I0 00 72606060£ 1£A2420 10300000 


1<B THEN 1F Jc THEN Lel ELGE L=J ELGE IF JC8 THEN Lo2 ELGE Lod 


By Rolynda Brantley 


4282 Taos Drive 
San Deigo, CA 92117 


ou and your best friend are in an 
Vv enchanted toy chesi counting your 
favorite piaythings over and over. 

The toys in this toy chest never break and 
never get lost. In fact, the more you play 
with these toys the more toys you seem 
to have. 
Does this sound like a preschooler's 
dream? Well, in a way it is. Counting Fun 
began as a way to motivate my three-year- 
old daughter to learn to count. Since i 
wanted her to be drawn into the program, 
1 began by designing pictorial representa- 
tions of her favorite things: ducks, hearts, 
school buses and her special pal, E.T. My 
artistic talents leave a lot to be desired. But 
even tinvugn L.i. iooks more like a gas 
pump than an appealing alien, Karen loves 
him. Together they conquer counting and 
number concepts while playing in the 
never-empty toy chest that is our TI-99/4A. 


Let's Play 

The screen displays two lines of toys, 
with 0 to 5 toys in each line. Each toy an- 
nounces its appearance with its own 
unique sound. The bus, for example, 
honks its horn. Those who have a Speech 
Synthesizer might want to have E.T. say 
his famous line when he comes on the 
screen. 

The computer asks HOW! MANY______? 
and displays three miniature pictures of the 
toy the child is supposed to count in the 
two lines above. The child, therefore, does 
not have 10 be able to read to enjoy do- 
ing this program activity by himself. Cor- 
rect answers receive an audio and visual 
reward. An incorrect answer is indicated 
bi: a different tone and followed hy a 
display of the correct answer. 

After the questions have been asked and 
answered, an encouraging message 
designed to personalize the game and 
boost the learner's self-esteem appears. 
The message | LOVE YOU not only ac- 
complishes both of the above goals, but 
it is also a friendly, easily recognizable 
message for any child to read. You may 
want to change the messages from time 
to time after your preschooler has learned 
to recognize them. 

The game is very friendly, and young 
children will have few problems playing 
it by themselves. All they need to do is 
press a number key and [ENTER] to go on 
to the next problem. Although children 
will feel independent when they can play 
this computer game by themselves, it is still 





special for them to have Mom or Dad 
close by tG appreciate the worders of their 
learning accomplishments. 


Plays the Thing 

Our children's fascination with this new 
technological toy can help them learn all 
manner of things from letter and number 


Counting Fun, 
Explanation of the Program 


Line Nos. 
100-160 
170-200 


Program header. 

Clear screen, input name, 
and set starting values for 
variables. (F # of right 
answers) (W # of wrong 
answers) 

Initialize colors for 
character sets. 

Initialize character 
patterns. 

Set starting values and 
clear screen. 

Pick random characters 
and random number of 
characters and place on 
screen using subprograms. 
Ask questions and input 
responses. 

Print total of right and 
wrong responses. 

Input to start game over. 
Subprograms to make 
characters. j 
Subprograms to make dif- 
ferent sounds for right or 
wrong answers. 


210-270 
280-600 
610-670 
680-900 


910-1470 
1480-1500 


1510-1520 
1530-1950 


1960-2030 








| IN BASIC | 























concepts to exercising their imaginations. 
You can personalize Counting Fun with 
your child's favorite toys and appropriate 
reward messages, and then just watch the 
magic happen. If you get a chance, do 
‘phone home” and let us in on the Coun- 
ting Fun in your household. 












109® REM EXIXELIXE RIONE RIONO E 

t18 REM KO COUNTING FUN ®;_ 
20 REM x BY * \ ; 
138 REM * RDLYNDA BRANTLEY * \\/ 
140 REM ERENELERENIA EEE 

156 REM 99°ER VERSION 2. 19.1 

' 60 REM 
‘47 CALL IDLEAR 

‘18 - INPUT "WHAT IS YOUR NAME? "KS 

wo 


F=® 
(CALL 'SCOREEN(8) |, 

COLOR (10,9, 1): 

COLOR (11,9,1) 

COLOR (13,7,1) 

COLOR (14,14,1) 

COLOR (15,2,1) 

COLOR (16, 16,1) 
FFFFFFFFFFFFFFFF " 

CHAR (128, "387CFEFFFF7F7F3 


CHAR (129, "87 1F3F7FFFFFFFF 


CHAR (130, "a000ROBOBO" ) 
CHAR (131, “SF1F1FRFAFO7670 


CHAR (132, "FEFCFCFBFBFOFOE 


CHAR (133, "BZA101") 

CHAR (134, "E0C2C00") 

CHAR (136, "FFOFOFOFOFOFOFF 
CHAR (137, "FFOTITOTOZOIOIF 


CHAR (139, "IFIFIFIFIFIFIFF 


i 


———__—_____y_ym_y_—_—-F.r_.r_rr..r--rn=ceentnzn ————.————_—__——————————_————_————_—__—_—_—_—_—_———6 


cHAR Cise,as) i: 
CHAR (144, '""FF7E5C") 


) REM x 


#8 CALL HCHAR (23, 





































EXTRA Kasic 


EREAIAEIEAEAIA EZRA NE — 
POCKET SUNRISE ®, 
BY S.T.HDLL 8 |- 


REM 


REM x 
REMO SNKKENELEAEZERKA ERE 
REM 99?ER VERSION 2.1@.1 
DATA 32,42,2,3,88,06,0,9,© 
READ SKY, STAR, FGC, CHSET, SUN, SU 
CNRISE, SUNHI, ONN, OFF 

CALL CLEAR 

CALL 'SCREEN(2) 

CALL' COLOR (1,2,2) 

.CALL COLOR(2, 16,2) 

CALL COLOR (8, 11,11) 
FG$="FFFFFFFFFFFFFFFF" 

bG$=" 0000000000000" 

FOR DARK=1 TD 50 

CALL HCHAR (23, 1, BKY,32) 

CALL HCHAR(23,RND*3B+1,5TAR,1 
PRINT: 

GOSUB 5B@ 

NEXT DARK 

\ BGC=FGC 

DATA 15,9,11,4,5,6,5;b6,65,9 
READ FGC 

IF FGC<>© THEN 350 

)@ GD TO 340 

8 CHSET=CHSET+1 

IF CHSET<7 THEN 3BO 

. CHSET=2 


‘6 CALL COLOR (CHSET, FGC, BGC) 
IF FGC<>SUNRISE THEN 418 


ONN=1 
FOR EIGHTH=1 TO B 
 PATTERN$=5E6% (FG%, 1, 2IEIGHTH) & 
“BEG$ (PG$, 1,2% (G-EIGHTH)) 
SKY (CHSET+3.) %*.B+EIGHTH-1 
» CALL CHAR (SKY, PATTERN$) 
CALL HCHAR (23, 1, BKY, 32) 
IF DFF+(1-0NN) THEN 548 
“SUNHI=SUNHI+1 


i SWIDE=SUNHI 


IF SWIDE<5 THEN 51@ 
SWIDE=9-SWIDE 


17-BWIDE, BUN, 285 


WIDE) 
IF BUNHI<B THEN 540 
OFF=i 
PRINT : 

GDSUB SBO 

NEXT EIGHTH 
i50 TO 300 
-FDR TICK=1 TO 100 
NEXT ITICK 








CHAR (152 





ripaga) 


CHAR (157, 


CHAR (142, 
CHAR (14 


 CHAR(141," 


2 


ina 



































c= 
A=INT (4*RND) +1 
B=INT (6*RND) 
FOR N=1 TD ® 

IF A=1 THEN 790 
IF A=2 THEN 820 
IF A=3 THEN B5W 
F=F+1 
7® GOSUB 16950 

è GDIO B70 

MO X=X+1 

: GOSUB 1520 
GOTO B7% 
vev+1 
> GOSUP 1630 

6DTD B78 
2=24+1 
» GOSUE 1730 

AC=C+5 : H 
NEXT N 
«RER+6 
NEXT L 
FRINT HOW MANY 
CALL HCHAR (23, 16, 11B): 
CALL HCHAR (23, 12,11B) 
& CALL HCHAR (23,14, Ha, 
d INPUT G.. 
«DIF G=X THEN 1010 















CALL HOHAR (23, 16,141): 

} CALL HCHAR(Z3, 12,141)! 

be CALL HOHAR (23, 14, 141), 
E INFUT H' 

: IF_H>Y THEN Liso. 


COUNTING FUN 


« "ZEFFFFEZE7FFFFF È 


CHAR (155, "FFFFFFFFFEFCFBF 
CHAR (156, "8193970F 1F3F7FF 
"B@COEOFOFBFCFEF | 


“FFFFFFFF") È 
Ss "d91010191010191F 


CHAR (104, "BO80D153737 3333 CALL HCHAR (23,12, 119) 
CHAR (105, "0078FEFF9S93FFF L33168 

CHAR (196, "30303030303B3O3 |; 336. 
CHAR (107, “sozezB1iForozazo 
CHAR (198, “S@FCFFFFFFFFFFF 


CHAR (199, »OZ0ZOZDIONI1 1F3 È i 


CHAR c 159, “00sGE17E7E3E081 ì 





‘25® PRINT "HOW MANY -" 
‘3160 CALL HCHAR (23, 16,159) 
Sal CALL HOHAR(23, 12,159) 
CALL HCHAR (23,14, 159) 
INFUT I 

IF 1=Z THEN 1250 
W=W+1 

GOSUB 2010 
*PRINT "NO... "57 
) GOTO 1270 

F=F+1 toi 
® GOSUR 19609 

PRINT "HOW MANY 
CALL HCHAR (23, 16, 119) 





mou 


PrISS CALL HCHAR (23, 14,119) 
INPUT J 

FI 320 IF J=P THEN 1370 
M=W+ 1 
GOSUB 2010 
PRINT "ND... "35P 


VEX+Y+Z4P 
IF 0 THEN 1460 
‘GOSUR 2010 

) PRINT "NO... "3V 


“YOU HAVE GOTTEN “3F;" R 





"YDU MISSED 
"I LOVE YDU, 


"sb 
“"sK$ 


8 ‘REM HEART 

B CALL HCHAR(R,C+2, 128) 

CALL HCHAR (R,C+3,129) 

CALL HCHAR(R,C+4, 132) 
CALL HCHAR (R+1,C+2,131) 


CALL HCHAR(R+1,C+3, 132) 
CALL HOHAR (R+2,0+2, 133) 
CALL HCHAR (R+2,C+3, 134) 
Laird CALL e i 






| 





HCOHAR (R, C+1, 136) 
HOHAR (R, C+2, 137,3) 
HCOHAR (R+1,C, 139) 
HCHAR (R+1,C+1,138,4) 
HCHAR (R+2,C+1, 144) 
HCHAR (R+2,C+3, 144) 
SOUND (200, —2, 2) 
SOUND (300, —2, 2) 


DUCK 

HCHAR (R, C+2Z, 152) 
HOHAR (R+1,0+2, 153) 
HCHAR (R+2,0+3, 153) 
HOHAR (R+2,C+2, 154) 
HCHAR (R+2,C+4, 155) 
HOHAR (R+1,C+4, 156) 
HCHAR (R+1,0+3,157) 
HCHAR (R+1,C+1, 142) 
'HOHAR (R+3,0+3, 143) 
Siino 23,2) 


HOMAR (A, C+2, ‘104) 

HHCHAR (CR, C+3, 1/05) 

HCHAR (R+1,C+2, 106,2) 

HCHAR (R+#2,C+2,:107) 

HCHAR (Re2,0+3,:108) 

HCHAR (R+3,C+2, 109) |, 

HCHAR (R+3,C+3, 110) 

HCHAR (IR+3,C+4,111) 

SOUND (760, —4, 2) 

. RETURN 

REM RIGHT SOUND DI 

$ CALL SOUND(200, 800,8) 
CALL SOUND (200, 988,9): | 

‘CALL SOUND (300, 1947,0) - 

“RIE TURIN 

REM WRONG SOUND 

CALL SOUND (560, 7,15) —_ 


RETURN 
FINE 








SEDILE A TT —m—————___tz_nn1ln1k1llRmii 


MANDALARI 
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29 stre mento T-9IHA 
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CARATTERISTICHE DELL'EDIFICIO IN 


). Esame: 


L'esempio di calcolo che viene riportato 
di seguito si riferisce a un edificio co- 
stituito da 5 piani sovrapposti con 2 al- 
loggi per piano, avente un porticato al 
piano terreno e una terrazza all'ultimo 
solaio con strutture portanti in cemento 
armato. 


L'edificio in esame costituisce pertanto 
un caso abbastanza usuale affinché lo 
esempio assolva meglio la sua funzione. 







































































el Sio AMBIENTE -— 





a 
b PIANTA PIANO TIPO 


[| 
i | i So | ETRO 25.50 n — drei + 


Î Pe: cai 
















TEXAS 
Do INSTRUMENTS 
E ome Compute EDI 9 DL 99% AA 




















ya AA FRANCOMPU TER: cs 


i i : Tee nl {.-:---: 
ta i vi i sele, CLUB 
a tag ai dr: droni ge RCA COMPUTER 
————i -__ WWW SITEXAS TI-99f 
du, : A, 


I : I i I A I 
ai cina, IRA Ta ti EI i. DIE % ; ie dot 
















































FLESSIONE S. 





VERIFICA 


H 
% 
z 
5 
w 
(©) 
[a 
a 
ka 
il 
Hd 
sal 
2 
[da 
[a 
A 
5 
HI 
m 


«d 
[mp 
A 
(©) 
H 
ni 
Q 
[| 
pas) 


Re ET 2 I DI sia SE EE et TARET 
MEC LES Ul LO. Sa 
I (AR: IE 1 Re MS. e É 
— —— 7 n ‘ ù x al Ì Ul 
| I, CE paul 5= Pg ||] a - 
ces ica e VS ET | 3 i a da 
— 4-r--——- ee Er, Tr - |P A a 
7 i LIME î _ È È —_ Wi 1 " r- È La dati ua a n DI (02 
Stilo ie Li II Le i - : E 4 
a ee SIRO Siri pic E aus a Po: TR E * 1 7 =aè aL. Ù Di HA 2 A ua | S 
4 LE E E pago hi _l cl _l t I n ù I VA z cd 
ESTE ig a . 4 I ao i: Toti IE A il o E 
er E pe —- mal O Z Ha 
: I n Za di PRESA Osa j I ; so i i : Riza “e ' i ta LÀ < NA 
--—_- dalia ; RL tale 1 nt i (ati ei Gai a sn eni A 2 DL 
AEREA 0 di PE RT ugo = rd 2 DU 
_ Lo BI { ' [mal Hi [Ca| baaf i 
ES n DÌ 2° SENT a, i D fa ms i 
n uo e Bs [gs 
_ d Ti Q ©) Z MO 
î ; L Ha med AD d 
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[...c COME PER macta....} 


Chi di voi ha avuto a che fare con quelle infernali macchi- 
nette che si chiamano TI 59 sa benissimo che il Manuale in 
dotazione "sorvola" su aspetti interessantissimi del Siste- 
ma Operativo. In particolare ci sono almeno una decina di co- 
dici di istruzione "nascosti" cioé non descritti da nessuna 
parte, ma che la TEXAS usa normalmente nei suoi programmi. 

$ Pensavamo che con il "nostro" TI 99/44 queste cose non acca- 

i iessero ed invece... e. invece accadono!! 





<uanto sto per dire é valido solo per chi ha la fortuna di 
rossedere il Modulo SSS Personal Decord Keeping ( che ades- 

so il nostro Franco ha anche in versione italiana) o il Mo- 
Taulo S59 Statistics. Sapete bene che uno dei problemi princi- 
vali per la nostra console in versione base é la mancanza del- 
îe istruzioni "Display et" e "Accept at", Forse non sapete 
7erò che con uno qualsiasi dei duc Foduli citati, il nostro 

ZI BASIC diventa cuasi ...., BXTENDED, basta avere infatti 

21 Modulo inserito nell: console c@& al set di istruzioni nor- 
zalmente presenti se ne aggiungono altre due. Sono esattamente: 


ZALL D Serve a stampare una stringa in qualurque parte del 
video 
8 SAIL A Serve ad avere inputs in qualunque parte del video 
con possibilità di controlli davvero interessanti. 


SINTASSI DI CALL D I FRANCOMPUTER 


CALL D(RI,CO,SIZE,LISTA DI STAMPA {,...] ) 





#I,C0 = Coordinate del punto di inizio della stampa.(Riga,Colonna) 
SI4ù = Lunghezza della stringa da stampare. 
LISTA DI STAMPA = Variabile o costante di sCri..ga da stampare, 


ES=5PIO 
: ICO CALL CLEAR 

IIO X$="STRINGA" 

120 CALL D(5,4,43,"QUESTA E! UNA") 

1 130 CALL D(5,45,7,X$,7,4,4,"LUNGHISSIMA") 
140 GOTO I40 


Come vedete Call D é duplicabile cioé si possono stampare più 
i variabili o costanti con una sola istruzione, Inoltre stampa 
esattamente il numero di caratteri specificato nel campo SIZE. 
Nell'esempio precedente della parola "LUNGHIsSINA" sarà stam- 
pato solo "LUNG", Provate a cambiare i valori delle variabili 
dell'esempio per capire bene come funziona. 


(Continua) 





ss00 E COLE PER MAGIA ...o (Continua) 


SINTASSI DI CALL A 


3ALL A(RI,CO,F,INS, [mn sia } 





O = Coordinate del punto di input (Riga, Colonna). 

= Lunghezza massima della stringa da stampare. 
Segnalatore di Funzione 

Input. Può essere anche una variabile numerica. 

\AX = Limite inferiore e superiore dell'input numerico, 
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=355/PIO 

2100 CALI. CLEAR 

210 CALL D(5,4,28,"BATTI IL TUO NOE") 
2-20 CALL A(7,1,40,F,KOM$) 

250 CALL D(9,%,28,"IL TUO NOKE E' "anoMib) 
240 GOTO I20 


zer fermare il programma precedente bisognerà premere CLEAR 
=uDito dopo ENTER, Con l'input in corso, infatti, il program- 
zi non si ferma, quest'altro es isempio vi mostra invece l'uso 
2si limiti di input: 


100 CALL CLEAR 

210 CALL D(5,t,28,"BATTI UN NUMERO TRA £ = 5") 
2:20 CALL A(7,t,t,F,X,£,5) 

230 CALL D(9,4,28,"IL NUzERO E! "& STR$(x)) 
240 GOTO I20 


zìi infine ecco l'uso del segnalatore di funzione: 


200 CALL CLEAR 

220 CALL D(5,£,28,"BATTI UNA STRINGA") 

220 CALL A(7,1,28,F,Xb) 

230 CALL D(9,t, 28,x$,4k,t,28,"F= "& SERÌ(F)) 
24€ GOTO 120 


2: l'esempio precedente premete i tasti di funzione della pri- 
za riga ed osservate il variare di F, La corrispondenza tra 
zasti di funzione e valori di T é la seguente: BEGIN 6, PROC'da 5 
1D 3, REDO 4, BACK 7. ATTENZIONE: con CALL A non é più abili- 
270 l'auto repeat dei tasti, ne la funzione ERASE, Le lettere 
arno cancellate una per una con DEL. 

ete sia finita ? E invece NO ! Con il Sistema di Memoria 
"Siaché, l'interprete BASIC riconosce altre quattro istruziori 
esattamente: CALL L, CALL G, CALL H, CALL S, A che cosa mai 
viranno ? Abbiamo in verità già qualche idea, ma il seguito 
3 prossima ..... Rivista. 
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Line-by-Line 


(Assembler: 





COS'E! UN' ISTRUZIONE IN ASSEMBLER 


da: utilizzare sia con la MINIMEMORY 
e sia con l' kditor ASSEMBLER, 


FORMATO DELLE ISTRUZIONI IN LINGUAGGIO SORGESTE 


Un programma sorgente in Assembler è formato da istruzioni in 
codice che possono contenere direttive di assemblaggio;istru= 
zioni di macchina;ypseudo istruzioni commenti, 


Ogni linea ( o record ) di istruzioni sorgente consiste in un 
massimo di 80 caratteri di informazioni inclusi gli spazi, Un 
record può essere suddiviso in più sezioni di lunghezza varia= 
bile chiamati campi. 

Il CAMPO ETICHETTA (label) è posizionato all'inizio dell'istru= 
zione: sorgente e serve come punto di riferimento, 





Il CAMPO OP-CODE è il codice operativo ( un mumero,.un.neme, 0 
un'abbreviazione) della azione che deve compiere l'istruzione 
sorgente. 





IL CAMPO OPERANDO specifica il valore su cui l'istruzione agi= 
scejpuò essere un numero, una stringa, un indirizzo etc etc, 


IL CAMPO COMMENTO è un'area in cui potete aggiungere commenti 


per migliorare la leggibilità del programma ma esso non influ= 
enza le operazioni del computer. i 


Le definizioni di sintassi descrivono la forma richiesta per 
l'uso dei comandi in relazione ai campi, 


LA SEZIONE 4 descrive le procedure di scrittura e definisce i 
dettagli. 


Nelle definizioni sintattiche relative alle istruzioni di mac= 
china ed alle direttive di assemblaggio vengono usate le seguen= 
ti convenzioni. ( vedi manuale del TI pag. 31 ) e 


°: Le parentesi angolari indicano un elemento da voi de= 
finito. 


© Il simbolo b rappresenta uno o più spazi( o blanks) 


La sintassi ( cioè la forma richiesta ) per l'istruzione sor= 
gente è la seguente: 


- - 
[1abe17] b op-code b |< operando 3] RA operando] b[<commento>] 


Come indica questa definizione di sintassi, una istruzione sor= 
gente può avere una etichetta da voi definita. Uno o più spazi 

separano l'etichetta dall' @p-code, Il generico termine op-code 
include codici operativi mnemonici, direttive di assemblaggio, 

e potete dunque inserire uno di questi elementi, 


Uno o più spazi separano 1' op-code dall'operando, quando è ri= 
chiesto un operando, Operandi addizzionali, quando servono, devo= 
no essere separati da virgole, Uno o più spazi separano l'opern= 
do o gli operandi dal campo commento, NOTA: Anche se la lunghez= 
za massima di un record sorrpente è 820 caratteri, quando lo lista= 
te sono stampati solo i primi 0600 caratteri di ogni linea. 


[cAMPO ETICHETTA) 

Il Campo Etichetta comincia col 1° carattere del record sorgente 

e termina al primo spazio seguente, Tl campo etichetta è un sim= 
bolo contenente fino a sei caraiteri, il primo dei quali DEV£ es= 
sere alfabetico. Gli altri caratteri possono essere invece alfa= 
numerici, Una etichetta opzionale è per le istruzioni di macchina 
e per molte direttive di assemblaggio. Quando l'etichetta è omessa 
il primo carattere del record DEVE essere uno spazio, 

Una istruzione SORGENTI formata solo da un CAMPO ETICHETTA è una 
istruzione valida, Ha l'effetto di assegnare la locazione corren= 
te all'etichetta. Di solito ciò è equivalente a piazzare l'etichet= 
ta nel campo etichetta della seguente istruzione di macchina o di= 
rettiva di assemblaggio. 


[cAMPO ISTRUZIONE) 

Il campo istruzione comincia dopo lo spazio che chiude il campo 

etichetta oppure nel primo carattere che non è uno spazio seguente 

la prima posizione del record se l'etichetta è omessa, Il campo 

istruzione termina con uno o più spazi e non può superare il 60° 

carattere «del record sorgente, 

Il campo istruzione contiene un op-code che può essere uno dei se= 

guenti: 

codice operativo mnemonico di una istruzione di macchina. 

codice operativo di una direttiva di assemblaggio 

simbolo assegnato ad una "extended operation" da una direttiva 
DXOP 


o. 0 


°)codice operativo di una pseudo istruzione, 


[cAMPO OPERANDO] 

Il campo operando comincia dopo lo spazio che conclude il campo is= 
truzione. Non può oltrepassare la 60° posizione del IkECORD SORGENTE, 
Il campo operando può contenere ura o più espressioni,variabili.o 
costanti:in accordo a ciò che richiede il particolare op-code., Il 
campo operando termina con uno o più spazi. 

e linea di CONMì:ENTO comincia dopo lo spazio che 
chiude il campo operando e può estendersi fino alla fine del re= 
cord sorgente se necessario, Tl campo commento può contenere qua= 
lunque carattere ASCII incluso gli spazi . Unalinea o istruzione di 
commento consiste in un singolo campo che comincia con un asterisco 
e continua con qualunque carattere ASCII inclusi gli spazi, in qua= 
lunque ordine. È 
Le istruzioni di commento sono stampate nel listato del codice sor= 
gente ma non hanno altri effetti sull'assemblatore Una linea com= 
posta esclusivamente di spazi è considerata una linea di commento, 


A BREVI-SIMA SCADUNZA DARESMO TUTTE LE INDICAZIONI PER PROCEDERE SU 
QUESTO MERAVIGLIOSO TERRENO cioè IL LINGUAGGIO MACCHINA, IN PLREPA= 





RAZIONE UN MANUALE IN ITALIANO CHE VERRA' CEDUTO ASSIEME ALLA SSS 
MINIMEMORY, LAVORIAMO JIN 5 PIER FARLO, PRONTO SARA! A ? dae 
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he Assembly Language routines presented in this article will 

let Home Computer users draw axes, piot curves, and even 

draw objects in perspective. The software, consisting of 
piotting routines for the Mini Memory Cartridge, accesses che 
powerful graphics capabilities of the TI-99/4A through TI BASIC. 
The routines supplied in this package require either of the follow- 





















































. a YAXIS MOV R11,98AVRI1 
ing peripheral Configuration: MOV STATUS, aSTASAV 
I. Memory Expansion, cassette recorder, Mini-Memory, and LI RO,MREGS+16 
assembled (object file) routines available on chis issue's Di Binsnca 
do . . "i [] 
99'er Magazine-On-Tape.'' [See page 69) SLA R1,1 
2. Memory Expansion, disk system, Mini-Memory, MOV Ri, 380 
BLWP_9AXIS 
Editor/Assembler, and source files (hand entered from LWPI BPLWS 
listings included with this article.) _ MOV @STASAV, SBTATUS 
i ——. _EAR MOV aSTATUS, ISTASAV MOV 2SAVRII,RI1 
SUBESARBAREDI FABI RERa ne SCAN  EGU >000E NOV Ri1,aSAVRII RT i 
SNT E BOO BLWP 2CLEAR . 
8 PART ONE OF PLOTTING 8 |eratuSs i; det LWPI GPLWS . 
4 ROUTINES ® |VOPRD EOU >8800 MOV 2SAVRIL,RII AXIS DATA MREGB,AXIBI 
RUSISSNIZITABINTIGITZ TATA | VOPRST EQU >8000 MOV @STASAV, aSTATUS |s 
. dea DEVINCENTIS, JR. | UDPWA EGU >8C02 RT AXISI CLR RO ‘ 
x ER VERSION 2.2.1ALMM | UDPWD EQU >8C00 i : LI R1,2 
XP1 EOU 1 BLWP_2NUMREF 
TITL "BIT MAP LINE] xp? EU 3 GRAPH BLWP 2VDPSET LI R2,FAC 
] YPI1 EU 2 BLiP 2GRPAHI LI R3, ARG 
DEF DRAW vez + EGG -@ LMPI GPLWS BL aTRDATA 
de ECLERR s SCANIT BL 2SCAN CLR RO 
AORG ORIGIN MOVB @STATUS,RO 
DEF LABEL DELTAX DATA 0 NEO SCANITO” PARO NE 
NUMREF 
DEF MOVE DELTAY DATA 0 LI RO,>0020 LWPI GPLWS 
DEF SCALE SAVRII DATA 0 MOVB èKEYCOD, RO BL 3FCOM 
DEF XAXIS STASAV DATA 0 CI RO, °Q0 ” ue 
ì DEF YAXIS VAL253 DATA >4102, >3700, }0000 JNE SCANIT LWPI MREGS 
LI R 
ca Si DATA >0000 =") O, VDPRST MOVB 2STATUB,RO 
NUMA VAL191 DATA >dAIOI, >5B00, >0000 aVADR ANDI RO, >4000 
REF STRREF DATA >0000 MOV 2,R11 JGT AICONI 
. VDPREG DATA >B002, >BLEO, >8206 B idr LI RO,ERRBA 
A EOU 5 DATA >A3FF, >8403, >8506 || * B dERRAY 
ADR EU 0 DATA >8717 8 AXCON1 MOV ax sxba 
ARG EQU >6835C x DATA 0 LABEL MOV @STATUS, aSTASAV MOV piave 
B » 
EU 6 xi DATA 0 MOV RI1,2SAVRIL LI R2,AR8 
BASE  EQU 8343 Y DATA 0 BLWP_2LABELI LI R3,SREG9 
CF1 EQU 1289 vi DATA 0 LWPI GPLWS BL a2TRDAT 
CHAR  EQU 5 XSAVE DATA 0 MOV 2SAVRIIM,RII MOV FLAB2 Ri 
CHRCNT EQU @ YSAVE DATA 0 | MOV @STASAV, 2STATUS SRA O RI,L O 
CNT EOU 9 XDOT DATA >4001, >0000, }0000 RT AI RI,1 
COLOR EQU >1000 DATA >0000 . WP_3CÙNY 
COUNT EQU 9 YDOT DATA >4001,>0000,}0000 on Has Aa 
DELTAA EQU 7 DATA >0000 ’ MOVE MOV @STATUS, aSTASAV at 
DELTAB EOU ® XMAX DATA >4102,>}3700, }0000 MOV R11,SAVRII “ nr 
DRFLAG EDU 4 DATA >0000 BLUIP_DMOVE ” 
ERR EQ 10 XMIN DATA >0000,>0000, >0000 | LWPI ape DE falesia 
ERRBA EOU >1600 DATA >0000 MOV 2SAVRII,RII Ling dgr dala 
ERRBS EQU >1700 YMAI DATA >4101, }3800, 30000 | x TUS SARA 
ERACOD EQU >8322 DATA >0000" i ESTERA VERATA NE ALL, 
ERRNO EQU >1400 YMIN DATA >0000, >0000, }0000 |, RI BLWP_SCONVTR 
ERROR EDU >OOCE DATA >0000 È MOV RO, SX1 (FLAI 
ERRSNM EQU >1500 s | * 8 @X(FLAG4) ,1 
ERRUN EQU >2500 BUFFER BYTE DFF SCALE MOV STATI, STASAV MOV RO, SDELTAX 
FAC EGU >834A BSS DFF MOV RIT, SSAVRII CLR RO 
FADD EQU >ODBO EVEN s 2SCALEI LI R1I,3 
FCON EQU >ODIA CONREG BSS >20 prat GPLWS à BLWP_SNUMREF 
FDIV EQU >OFF4 MHEGS BSS >20 NOV a2SAVRII.R11 LI R1,2 
FLAG2 EDU 8 PREGS BSS >20 MOV &STASAV, 9STATUS MOV FLAG4, FLAG: 
| FLAG4 EQU ? SREGS BSS >20 RT . JEQ AXCON2 
| FMUL  EQU >OEBA LI s SRA RI1,1 
FSUB  EQU >0D7C . E AXCON2 BLP SCONVTR 
GPLWS EQU >BIEO DRAW Mov SSIAZIS:S0169A) XAXIS MOV RI1,9SAVRI1 NEG FLAB2 
Menta Ù MOV a@STATUS, 25TASAV NES: .FLABS 
BLWP 2DRAWI MOV RO, 2Y (FLAG: 
Ci hi LI RO,MREGS+16 , 
CIR. ‘RD MOV RO,&Y1 (FLA 
MOV @SAVRI1,RI1 GURS “nd CLR 2DELTAY (FLé 
@STASAV, @STATUS BP Saia BLWP_2DRAWI 
MOV 8IXSAVE,2I 
LWPI GPLWS ii 
MOV aSTASAV, 2STATYS pi pride iii 
MOV @BAVRII,RIL 
RT 
i PAGE I) 
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’ > BIT2 < Li 
% PART TWO OF PLOTTING © 
Li ROUT INES : 


FILTASTUCIECEBLKOCKICITISI® 
99° ER VERSION 2.2. 1ALMM 
LI 

SL INE 0002 

CLEAR DATA MREGA,CLEARI 


CLEARI LI R1, MYPGT 
LI R2,>1B00 
CLCONI CLR SRI 
INCT RI 
DECT R2 
JNE CLCONI 
CLA aX 
CLR dY 
LI R2, VAL255 
LI RI, XMAX 
BL ®TRDATA 
LI R2,VAL191 
LI RI, YMAX 
BL @TRDATA 
LI R3, }4001 
MOV R3,@XDOT 
MOV RI, 2YDOT 
CLR 2XNIN 
CLR @YMIN 
LI R1I,3 
LI R2,2 
CLCON2 CLR @XDOT(R2) 
CLA @èYDOT(R2) 
CLR dIMIN(RZ) 
CLARA dYNINIR2) 
INCT RZ 
DEC RI 
JNE  CLCON2 
RTWP 
L] 
LI 
CONVTR DATA CONREG, CONVTI 
, 
CONVTI MOV 32(R13),R5 
CI RS,1 ° 
JNE  CVCONI 
CLR RS 
CLR R6 
JMP. CVCON2 
CVCONI LI RS, 16 
LI R6,8 
CVCON2 LI R2,FAC 
LI RI, ARG 
BL @TRDATA 
LI R2, XMIN 
A R3,A2 
LI RI, FAC 
BL èTRDATA 
LWPI GPLWS 
BL 2FSUB 
LWPI CONREG 
LI R2,FAC 
LI RI, ARG 
BL 2TRDATA 


MREGS, DRAWZ 
SREGS, DRAW4 


RO 

R1,1 
@NUMREF 
ACONVTR 
RO, Xi 
2x,R0 

RO, @DELTAX 
RO 

R1,2 


RO, SDELTAY 

















DRAW4 ABS @DELTAX 
ABS @DELTAY » 
c 2DELTAY, QDELTAX 
JGT DRCONI 
MOV @DELTAX, DELTAA 
MOV @DELTAY, DELTAB 
MOV 2X,A 
MOV @v,B 
CLR DRFLAG 
IMP. DRCON2 
DRCONI MOV @DELTAX, DELTAB 
dita SETA BLWP_2STRREF 
MOV a@Y,A ) MOV dxX,XPL 
SETO DRFLAG CI xP1,256 
DRCON2 C@X,9XL JLT LBCONI 
JLT DRCONS RTW 
LBCONI CI XP1,>8000 
Eton JL  LBCONZ 
IMP DRCON4 a 
DRCDNI LI R2,1 | LECON2 MOV av,vPL 
DRCON4 C vY,avYi CI  YP1,192 
JLT DRCONS jr (ac 
SETO R3 se 
INPDRCONE LBCON3 CI YP1,>8000 
DRCONS LI RI,1 JL LBCON4 
DRCONO MOV DELTAA, COUNT sua 
INC COUNT LBCON4 CLR CHRENT 
MOV DELTAB,RO MOVB 2BUFFER, CHRONT 
SLA RO,1 SWPB CHRCNT 
MOV DELTAA,RI NEGI ‘Veli 
Ss RI,RO AI YP1,191 
MOV RO,ERR SRA XP1/3 
s RI, RO SRA YP1,3 
MOV DELTAB,RI da veita 
SLA R1,1 
REDRW1 MOV. DRFLAS, DRFLAS Do SLI A0R 
JNE REDRWZ . CHACNT, YP1 
deci dee CI \P1,768 
, JL  LBCONS 
IMP. REDRWS nre 
REDRW2 MOV A, Y x in 
Dov. <P, 3% MOV YP1,CHRCNT 
REDRES. BENP; BE LOT LECONS LI —R7,BUFFER+1 
MOV ERR,ERR cal as 
cplieiaze AI ADR,MYPAT 
A- RI,ERR LLOOPI CLR CHAR 
IMP INCR MOVB #R7+, CHAR 
CHNG MOV DRFLAB,DRFLAB SWPB CHAR 
JNE REDRW4 CI CHAR,S2 
A R3I,B JHE LBCONS 
JMP_ REDRWS CLR CHAR 
REDRW4 A RZ2,B JMP LBCONA 
REDRWS A RO,ERR | LBCON6 CI CHAR,127 
INCR MOV DRFLAG,DRFLAG JLE LBCON7 i 
JNE REDRWG LI CHAR,127 
A RZA LBCON7 AI CHAR,-32 
JMP REDRW7 SLA CHAR,I 
REDRW6 A RIA LBCON9 AI CHAR, CHRTBL 
REDRW7 DEC COUNT LI CNT,8 
fr ni LLOOP2 SUC SCHAR+, $ADR* 
z CI ADR,MYPET+)1B01 
MOV 9v1,9Y SE SE 
RTWP 
RTWP 
i LBCON? DECT CNT 
ERRSYS MOV RO,@ERRCOD tr opta 
FOCE: SFEFS JNE LLOOPI 
LI R11,)000£ 
B ERROR ti daga 
he . 
Li 
seni DATA MREGS, GRPAHZ MOVEI DATA MREGS, 
. 
BRPRAZICLAE RO MOVEZ CLR RO 
BL avaADW RI 
LI R1,>1800 LL SE 
LI R2,MYPGT i ped CE 
GRCONI MOVB 8R2+, aVDPwD MOV RO_3X 
Dre -Ri CLR RO 
JNE  GBRCONI LI RI,2 
Wp , 
gT BLWP_ PNUMREF 
; BLWP_2CONVTR 
MOV RO, aY 
LABELI DATA MREGS, LABEL2 nto 
LABEL2 CLR RO ; 
LI RI,I 
LI RZ5>FF00 PAGE 
MOVB R2, BUFFER 
LI R2,BUFFER 
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* PART THREE OF PLOTTING &% 
x ROUTINES : 
BEETTTOOTINCONTINCINTENI E 
8 99'ER VERSION 2.2, 1ALMM 

. 


tLINE 0002 

LI 

PLOT DATA PREGS,PLOTI 

9 

PLOTI MOV axXx,XP1 
CI xP1,254 
JLT PLCONI 
RTWP 

PLCONI CI XP1,>8000 
JL PLCONZ 
RTP 

PLCON2 MOV 2Y,vPI 


CI  YP1,192 
JLT PLCONI 


RTWP 

PLCONI CI YP1,>B000 
JL PLCON4 
RTP 

PLCON4 MOV XP1,XP2 
NEG YP1 


AI  YP1,191 
MOV YPI,YP2 


SRA YP1,3 
SLA YP1,5 

SRA XP1,3 
MOV YP1,ADR 

A XP1, ADR 
SLA ADR,3- 
ANDI YP2,>0007 
A YP2, ADR 


AI ADR, MYPGT 
MOVB sADR, CHAR 
ANDI XP2, >0007 
MOV ADR,RA 
MOV XP2,RO 

LI = NASK,>B000 
SRC MASK,0 
MOV R4,ADR 
SOC MASK,CHAR 
MOVB CHAR, SADR 
RTWP 


L) 
SCALE! DATA MREGS, SCALE2 


LI 
SCALE2 CLR RS 


CLR RO 
BL ANUMGET 
LI RS,2 


BL SNUNGET 


CLR RS 
CLR RA 
BL INUMSUB 
LI RS,8 
LI R6&, 16 
BL SNUNSUB 
CLR RS 
BL SNUMDIV 
LI RS,8 
BL aNUMDIV 
RATWP 

, 

NUMDIV MOV RIL,RIO 
LI R2, VALZ5I 
A R5,R2 


LI RI, FAC 


2TRDATA 
RZ, XDOT 
R5,R2 
R3, ARE 
2TRDATA 
GPLWS 
@FDIV 
MREGS 
R2, FAC 
RI, XDOT 
RS,R3 
2TRDATA 
ar10 


RI1,R10 
RO 
R1,2 
RS,R1 
R2,FAC 
RI, XMAX 
R6,RI 
@NUMREF 
2TADATA 
RI 


R2,FAC 


R3, XMIN 
R6,R3 


@NUMREF 
2TRDATA 
R2, XMAX 
R6,R2 
RI, ARG 
ATRDATA 
GPLWNS 
@aFCOM 
MREGS 
STATUS, RO 
RO, >4000 
SCCONI 
RO, ERRBA 
dERRSYS 
sRIO 


R11,R10 
R2, XMIN 
R6,R2 
R3,FAC 
aTRDATA 
R2, XMAX 
R6,R2 
R3, ARG 
®TRDATA 
GPLHS 
dFSUB 
MREGS 





SCCON2 


VDCON2 


MOV 
MOV 
Mov 


DATA 


LI 
LI 
MOoy 
BL 
DEC 
JNE 
LI 
LI 
BL. 
HovB 
LI 
BL 
LI 
LI 
MOVE 
DEC 


YDCON2 
RO, PNT 


R9, >0100 JNE 
R9, 80VF LI 
SCCONZ BL 2VADY 

RO, ERRNO LI RI,S 
VDCONS CLR RI 

R7 LI R2, 256 

RE YVDCON4 MOVB R1,@VDPWD 
IFAC,RI AI R1,>0100 
FAC DEC R2 

FAC, RB JNE  VDCON4 

R7 DEC RI 

VDCONI 
RTWP 


IR2+, 3A3+ 
0R2+, 3R3+ 
2R2+, IR3+ 
3R2, SR3 


MREGBS, YDP1 


R2, VDPRE® 
Ri,7 
#R2+,R0 
aVADR 

Ri 

VDCONI 

RO, SNT 

Ri, >D000 
aVADW 
R1,9VDPWD ; 
RO,PCT I 
avADA 

R1, COLOR 
R2, >1900 
R1, 2VDPWD 
R2 





UULTTTTTUTETSIBETTAREEttE 


‘ > BIT4 < s 

® PART FOUR OF PLOTTING # 

4 ROUTINES s 
RUSEISTITCERTARETTAST ZIE 

1 99*ER VERSION 2.2. 1ALMM \ 

’ 

$LINE 0002 . 


T. 
CHRTBL DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 







>0000, >0000, >0000, >0000 
30010, >I010, 71010, >O010 
>0028, >2828, }0000, >0000 
>0028, >287C, >287C, >2028 
>0038, >3450, >J814, >5438 
>0060, >4408, >1020, >4C0C 
>0020, >5050, }2054, >4634 
>000A, >OBI0, 0000, >0000 
>0008, >1020, 32020, >1008 
>0020, >1008, >0B08, >1020 
>0000, >2B10, >7C10, >2B00 
30000, >1010, }7C10, >1000 
>0000, >0000, >00S0, >1020 
>0000, >0000, 37000, >0000 
>0000, >0000, >0000, >3030 
>0000, >0408, ©1020, >4000 
30035, 24444, >4444, }4436 
>0010, 3010, }1010, >1038 
>0034, >4404, >OBLO, >207C 
30038, >4404, >1804, >4438 
>0008, >1828, >487C, >OB08 
>007C, >407B, }0404, >4438 
>001A, >2040, >7044, >44538 
>007C, >0408, >1020, >2020 
>0038, 34444, 3844, 34438 
>0038, 24444, }3C04, >0B30 
>0000, 23030, 30030, >I3000 
>0000, >I030, >O0SO, >L020 


>0008, >1020, >4020, >1008 
>0000, 30070, >007C, >0000 
>0020, >1008, >0408, >1020 


< 
= 
> 
: DATA >0038, >4404, }0810, >O0IO 7 
DATA >003B, >445C, >545C, 34038 @ 
DATA >0038,>4444, 37044, 54444 A 
DATA >0078,)2424, }3B24, }247B B 
) DATA >0038, }4440, }4040, 54439 C 
=; DATA >0078, >2424, >2424,)2478 D 
= I DATA >007C,}4040, >7840, )407C E 
| DATA >007C, >4040, }7640, >4040 —F 
DATA >003C, 4040, >5C44, 34438 6 
DATA >0044, 34444, >7C44, 34444 _H 
DATA >0039,>1010,>1010,>1038 1 
\ DATA >0004,>0404, >0404, 34438 
ì DATA >0044, )4850, >4050, 34844 
} DATA >0040, >4040, >4040, >407C  L 
i DATA >0044, >6C54, >5444, 34444 M 
; DATA >0044,>5464, >344C, }4C44 N 
; DATA >007C, >4444, 34444, 34470 0 
vLi DATA >0078,>4444,>7B40,>4040 P DATA 
ca DATA >0038, 34444, }4454, )4934 DATA 
e DATA >0078, 34444, 57850, 34844 R 
DATA >0038, 34440, >3604, >4439 SS DATA 
DATA >007C,>1010,>1010,>1010 T DATA 
DATA >0044, >4444, 34944, 34438 U pata) 
DATA >0044, 54444, >2828,)1010 Vv DATA 
DATA >0044, >4444, >5454, >5420 Mi DATA 
DATA >0044, >4428, >1028, >4444 Xx DATA 
DATA >0044, >4428, >1010, 1010 Y DATA 
DATA >007C, >040B, >1020, }407C Z DATA 
DATA >0038,>2020, >2020, 32038 £ DATA 
DATA >0000, >4020, >1008, }0400 \ DATA 
DATA >0038, >OB0A, DOROA, DORIA 3 DATA 
DATA >0000, >1028, 74400, }0000 > DATA 
ia] I RI DATA 
” DATA 
' ti DATA 
È \ DATA 
i i DATA 
; I DATA 
A : DATA 
S i DATA 
LA Pa DATA 
n Ei a bi DATA 
i ln” cela DATA 
DATA 
DATA 
uazsustosara:se”t33za0e0se DATA 
t > SOURCE < 8 DATA 
s ! . DATA 
8 PART FIVE OF PLOTTING ® DATA 
p | ROUTINES [3 DATA 
uruzacqusìv20izeasIaneacee Data 


s 
899’ ER VEFSION 2.2. 1ALMM 


COPY 
COPY 
Copy 
COPY 
END 


"DSK1.BIT1" 
*DSK1.BIT2"® 
"DSK1.,BIT3® 
"DSK1.BIT4® 





>0000, >0000, >0000, 37000 
>0000, >2010, >0B00, >0000 
Y0000, 30038, >447C, 34444 
>0000, >0078, }2438, >2478 
>0000, >003C, >4040, >403C 
>0000, >0078, >2424, >2478 
>0000, >007C, 34079, >407C 
>0000, >007C, >4078, >4040 
>0000, >003C, 3405C, >4436 
>0000, >0044, >447C, >4444 
>0000, >0038, }1010, >1038 
>0000, >0008, }OBOB, 24930 
70000, >0024, >2830, }2824 
70000, >0040, }4040, >407C 
>0000, }0044, }&C54, 34444 
>0000, >0044, }4454, }4C44 
>0000, >007C, }4444,>447C 
>0000, >007B, >4478, >4040 
>0000, >0039, 34454, }4834 
>0000, >0078, >4479, >4844 
>0000, >003C, >4038, >0478 
>0000, >007C, >1010, >1010 
>0000, >0044, >4444, 34438 
>0000, >0044, >4429, 32010 
>0000, >0044, >4454, >5420 
>0000, >0044, >2810, >2944 
>0000, >0044, >2810, DI010 
70000, >007C, DOBLO, >207C 
30018, >2020, 34020, 32018 
>0010, >1010, >0010, 31010 
>0030, >OBOR, >040B, >0BJ0 
>p000, >2054, >0B00, 30000 
>0000, >0000, >0000, >0000 
































IS CANCCXECCCANDLODI Ber 7O ENT 


del 


PROGETTAZIONE DÌ CURVE E TORNANTI ——__- PROGRAMMA n. 320 






I) programma in EXT. BASIC ci permette di calcolare direttamente, 
in fase di progettazione della planimetria de]la strada, le curve 
circolari e i tornanti secondo lo schema seguente : 















gi possono usare sia angoli sessagesimali che centesimali. 


Dopo il RUN appaiono le formule usate (per chi non le ricordasse!) 
e viene chiesto il raggio RX della poligonale di guida : 
equidistanza 


(ea) 


pendenza 












Per maggiore precisione l'angolo al vertice può venire misurato 
in due modi 






1) con il goniometro 
2) con il metodo di BRIGGS 






Dopo l'imput della tangente vengono 
visualizzati, per quanto riguarda le 
curve: l'angolo &{ , il raggio, la 

corda, la freccia, lo svilugpo. 

Se si sceglie l'opzione "tornante" vengono 
visualizzati i valori relativi alle 2 con- 
trocurve ed al tornante. a E 


x DISTANZA YISURATAA 















PROLRAMMA 


PROGETTAZIONE STRADALE 
N. 320 


CURVE MONOCENTRICHE E TORNANTI 
- programma in extended basic. -. 





Dopo il RUN il programma visualizza le relazioni più importanti 
delle curve monocentriche. 
Si possono usare sia angoli sessagesimali che centesimali. 
Viene chiesto l'input del raggio della poligonale Rx in cm: 
Rx = e/p dove : e = equidistanza 

p = pendenza di progetto della strada 





esempio : 
e=5m 
Rx = 5x100 
p = 6,5% x î 3° = 76,923 m 


poi in scala 1:1000 diventano 7.6923 cm 


Per una maggiore precisione l'angolo tra due lati (Rx) della 
poligonale di guida può essere misurato în due modi: 1) con 
il goniometro - 2) con il teorema di Briggs (misurando la di- 
stanza tra gli estremi dei J]ati 'Rx'). 


I fase : CURVA MONOCENTRICA 


Viene chiesto o l'angolo p della curva o la distanza misura- 
ta e poi la tangente. 
Le risposte sono l'angolo ‘Of, il raggio, la corda, la frec- 
cia, lo sviluppo. N 

i AN 








Dopo aver premuro ‘BARRA' comparirà il) menù principale: se 
premete ‘R' ricomincia. 

Vi sarà data la possibilità di cambiare il metodo di misura 
dell'angolo B 


| FRANCOMPUTER |] 
















II° fase : TORNANTE 


Date la misura della I° tangente e della II° tangente (la 
tangente è il segmento che va dal vertice della contro cur 
va fino al vertice del tornante (V.V o VV). 

Infatti la tangente totale è data dalla somma della tan- 
gente di partenza più tangente della curva. 

I dati sono restituiti secondo questo ordine per le due con 
tro curve: T tot, RAGGIO, TANGENTE, Of, B , CORDA, FREC= 
CIA, SVILUPPO. 

Poi, in fondo allo schermo, viene visualizzato il p TOR= 
NANTE e lo SVILUPPO TOTALE (comprese le contro curve). 





| It 
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Numerosi sono gli articoli da pubblicare, tutti vogliono raccontare 
le loro esperienze, ciò che hanno fatto, scoperto. Ben vengano ancora, 
solo così si può crescere insieme, 
Ci dispiace; che qualcuno o che ha fatto o che ne è venuto in possesso 
consideri il valore del suo programma "oro colato". -Mi è costato tre 
imesi di lavoro-, l'ho pagato centomila lire-, in cambio vorrebbe 20 
programmi dei nostri, come dire che chi ha fatto questi 20 è uno stu= 
pido e che solo perchè li offriamo a chi non li ha ( e per uno scopo 
ben diverso) a lire 5000 dovrebbero essere al confronto stupidaggini. 
C'è stato uno che addirittura ci ha inviato un ritaglio di una rivista 
che pubblicava un programma in Texas per avere in cambio uno dei nostr: 
migliori programmi, Costui non ha capito nulla ! 


L'ha capito invece molto bene un nostro socio-corrispondente(e non uno 
solo) che ici ha inviato due prograjmi e una documentazione sugli stes 
si da far rimanere a bocca aperta una Software Hause di grande presti» 
gio. Non solo ma ci ha accluso il francobollo per la risposta! Insom= 
ma costui è un vero signore, un vero apostolo dell'informatica, E non 
posso tacere il nome. Dott. Ing. Mandalari., Non mi offre programmi 
per lucro; ne pretende nulla. Opera solo per la diffusione dell'infor= 
matica a livello di massa e soprattutto che questa con appropriati me= 
todi e programmi’ entri nella scuola, 





RICHIESTE-OFFERTE::3:::: 
Il nostro socio Vezzari Geometra cerca programmi seguenti : Topografia, 
Costruzioni,Contabilità Lavori con revisione prezzi,Archivio pratiche 
Archivio di coordinate tepografiche(località, descrizione vertice, fo= 
glio di mappa, particella,coordinate di X e Y per minimo I000 vertici 
Riferimento socio 432 


«Il socio ZAGA cerca un programma simulazione di volo. Riferim.to 231 


Il socio Artuso professore alle medie cerca programmi didattici di 
ogni genere, Flow Chart fatti da ragazzi. Riferimento 189. 


Il socio marassini cerca programmi fatti con Minimemory, Assembler, 
Keeping,Multiplan. Riferimento N; 321- 


I soci Cavallin, Crosa, Ferrini,Cioffi,Vanneschi cercano programmi 
che disegnino il grafico di una * funzione scelta dall'utente( Y=X-Senx ) 
in alta risoluzione con velocità accettabile e con po:sibia ix+còg x 


Il socio Chiappini cerca 1 progranima elenco clienti PRETENDI 
(su dischi , 1 programma IVA semplificata 
1 Paghe e contributi. Rifer.to 233 


Il nostro socio Capecchi cerca d'occasione SSS Giochi. Rifer.to 136 


c—_——_m—_______ ——m—m —zp_—————— + ___—_r_c__——®Dhn«ce—_———_—r_r- 


Il nostro socio GIORGI cerca e chiede collaborazione su programmi di 
scuola elementare. Qualsiasi genere” Riferimento 07 


Il nostro socio Cavriani vende SSS Koltiplications 30,000, Poker 30.000 
Number Magic 20.000,Calcio 30.000,Car war 30.000,Attack 5Ò, 000,Video 
Games 1 30,000, SPEECH Edi tor 50. 000 sBlasto 30. 000 sKeeping 50. 6000, 
Alpiner 30.000 ‘Music Editor 50.000 ,Fustrle 20.000. Riferim.to 293 


Il nostro socio Marcellini cerca programmi di anagrafico clienti e 
contabilità. Riferimento 222, 


FRANCOMPUTER VI OFFRE L'OPPORTUNI TA! DELLA CERTI FICAZIONE DEI VOSTRI 
PROGRAMMI E CURA LA VENDITA DEGLI STECUSI SU TUTTO IL TERRITORIO NAZIO 
NALE: IL VOSTRO PROGRAMMA LO METTIAMO IN CATALOGO AL PREZZO CHE DECI= 
DIAMO INSIEME. IL 50 % Va; ALL'AUTORE, 








4 
specificate bene il programma. Genere. Cosa fa. Cosa serve.Basic o EX 





I) 
i SUPPLEMENTO alle LI pagine dl progrummi contenute nella 4g rivista 
LPROGRANMI IN EXTENDIC BASIC 
___————___rt.eT_ r—————__==Z=====b 





244 CANNIBALI : Un gioco senza grafica ma con una forte logica, Uno degli 
esploratori deve attraversare il fiume, Ricorda il famoso gioco del 
lupo e: della pecora sulla barca. NDifficilel....s0.00000000000005,0000 
PISTA SKATE JOYSTICK) Due dischi su una pista di ghiaccio. : 
giocatori. Attenzione alle curve, non sbandate o scivolate. TRE tipi 
di gare. O=con ostacoli; T=con tempo.P= prendi gli oggetti volanti, 
Un programma molto bello e diversificato bene.ssssssssseocoese 5.000 
256 TENNIS ( JOYSTICK) Campo da tennis visto dall'alto con tralettoria 
curvilinea della pallina. Punteygsio convenzionale. Possibilità di 
scegliere i colori, di giocare in doppio. lRiEDO per giocare.» .+10,000 






247 &ALCIO . (JOYSTICK) Campo di calcio tridimensionale, Scegliete colo= 
re del campo e delle muglie e VIA! Si impossessa della palla il gio= 
catore. più vicino. Ammessi anche i colpi di testa. Rimessa automati= 
ca. Contatempo . REDO dopo ogni tempo. eee 0000000 00 000000 10,000 





248 STAR RIDE ( JOYSTICK ) Dovete colpire quante astronavi potete, Un 
giocatore spare l'altro governa l'astronave servendosi del radar, 
Redo per avere il commento Begin per nuova missione, .+++0e000=10,000 





249 BOXE ( JOYSTICK) Al suonare del Gong avvicinatevi all'avversario pre= 
mete il tasto FIRE e spostato la leva nella direzione scelta per il 
pugno: alto basso sinistro destro. Più a lungo tenete il tasto FIRE 
premuto e più forte sarà il colpo quando lo rilasciate... e6+10.,000 


250 ORBITE DI SATELLITI iDefinibile massa, kl, velocità etc. Un programma 
revisionato e messo a punto da un nostro socio matematico, ++ 0:5+000 


25I AIUTO CARATTERI GRAFICA:LE' il programma che abbiamo illustrato sulla 
rivista numero 1, Chi lo ha ricevuto ci ha seguitato a fare i compli= 
menti. Tanto è stato Tratuto.s.e si eee aeree ee sro Oa VVO 


253 SPRITER ORIGINALE USA, Per la costruzione degli Spriters sulla lava= 
gna video, Disegnate ciò che volete poi un tasto per i colori e via 
in movimento. SRO OLE RR E lane ee eee e O LR ea ee area ee 000 

254 CITTA D'ITALIA, Visualizza la cartina d'Italia chiedendovi a quale 
città corrisponde il cerchietto che lampeggia..ec0se0c0o0c0cs00 00000050000 


256 CALCIO SECONDO PER SECONDO, Programma che consente di tenere sempre 
aggiornata la classifica con i punteggi , le reti fatte,segnate 
partite vinte pareggiate perse, Le0000000000000000000 0000040 00010 ,000 


257 ASTEROIDI (JOYSTICK) Molti giganti multicolori bellissimi spriters 
sullo schermo, Sppiate muovervi con la vostra navicelle senza che 
essa vada ad urtarli. Punteggio finale. ...000000000000000000010,000 











258 FELIDO Vi svolazzano attorno due uccellini. Voi gatto posizionatevwi 
e scattate per prenderli, Molto difficile molto simpatico... ++5+000 


259 MATEMATICA I DIDATTICO Esercizi con risposte giuste sbagliate su 
addizzioni, sottrazioni, divisioriiy scomposizioni, moltiplicazioni 
etc tec, Punteggio finale, Molto interessante... .00000000 0000 10,000 


260 NOTES Su una lavagna video rigata potete scrivere le vostre annotazio 
ni, le vostre lettere ed inviarle ai vostri corrispondenti che hanno 
il TI 99, Potete salvare , rivedere, correggere, registrare su tape 
conservare. Un piccolo Word Processor... .scsscsoceteo0c0ss000 0000010000 





Fate una partita a dadi all"americana con computer 
Il rilancio è parlato ( col sintetizzatore chi l'ha) Buona visualizza 
zione: prafica: del. dadluasssitetecsi assetata decnaaneeee 5 0d00 

262 SPRITERS CERULO:In italiano, La firma di Cerulo significa sempre un 
buen programma. Questo modificando in meglio il programma 253 lo ha 
fatto diventare un capolavoro per la creazioni di spriters...10,000 





PROSEGUE PROGRAMMI IN EXTENDIC BASIC 





300 PROFILO LONGITUDINALE STRADALE , Il programma elabora dati rela= 
tivi al profilo di una strada. I valori che devono essere immas= 
si sono: Le distanze parziali( fra picchetti). Le quote del ter= 
reno. Migliore descrizione del programma sulla rivista 2... 28.000 


30I MAGAZZINO GESTIONE MERCI Su tape CSI CS2 Archiviare, aggiornare, 
| descrizione articolo,quantità, prezzo unitario, scorta minima, 
valore totale singolo articolo, valore totale del magazzino, In 
ottima grafica, Un programma eccezionale By CERULO,++00000»0 048,000 


304 TI DEX GRAFICA Per eseguire disegni vari su una lavagna che poi po 
tate salvare su cassetta, Un formidabile programma di grafica ope= 
ra del nostro nostro socio CERULO. 10000010000 c00s00000000 000200000 





305 SERENATA Un programma musicale molto gradevole e con gr'afica. a: cCo= 
lore. Originale USA vue sala: dara e nietalena: sie Srele lea (ene dise dae eterea 000 


306 ANGELI MUSICANTI Un altro programma musicale gradevole USA...5.000 


307 CHITARRE SUONANTI In grafica 12 suonatori con le loro chitarre vi 
n intrattengono con una gradevole musica, USA 0 ee 00 0 0 sè 0 0006080 #5. 000 


308 CHOPIN Un pezzo musicale " con amore sul mio cuore" sulla base 
dell'Opera: IO N.3 di Chopin. Grafica e suoni bellissimi.,..00+5,000 





3I4 BASKET 1) SEGNAPUNTI classifica di una partita di basket, Punteggio 
di ogni Elocatore ia babi il ie idea RIA 000 


315 BASKET 2): SEGNAPUNTI classifica di Squadre in torneo.USA. 05.000 








316 SUBROUTINE PIXEL TRAIL- CIRCLE Un interessante programma a del nostro 
bravo RANDONE. Vedi descrizione sulla rivista No2er0c00-00000010,000 


317 SUBROUTINE " SFONDO" Con un istruzione in EX.H, del tipo CALL 
SFONDO( Tipo,colore) 11 TI 99 realizza su video uno scenario " mon= 
tagnoso" del tipo indicato ( da 1 a 10) e del colore desiderato 
(da 1 a 16). La subroutine utilizza gli sprite dal 2I al 28 compre= 
si,in magnify ( 4 ). Questo programma può essere utile ausilio per 
la creazione di disegni o sopratutto di VIDEOGAME. ....000+0e0,10.000 


318 FORMULA DI GAUSS Utile in Topografia: calcolo dell'area di un poli= 
gono date le coordinate dei NOrb1Canzesa sinsnese ener es ss ieta 000 

















319 FROGGER La simpatica rana che deve ‘attraversare l'autostrada, .5. 000 


320 PROGETTAZIONE STRADALE Il programma opera del nostro bravissimo CI= 
MADORI permette di calcolare direttamente in fase di progettazione 
della,planimetria della strada le curve circolari e i tornanti se= 
condo gli schemi del foglio pubblicato in rivista N.2..000s,s40,000 








PROSEGUE PROGRAMME IN BASTC 





QUI CI=sOrt, is cinta 000. 





1252 EXCHANGE/ tag-sort. 
12593 PERCORSO OTTIMIZZATO/ simulazione di supermarket, +0000:10.000 
1254 CALCOLO IMP FISCALE, PREVIDENZIALE, stipendio netto....+.I10.000 
1255 COSTI DI PRODUZIONE... 20000002000 00000 000000000 000000000815 000 
1256 RITORNO SU INVESTIMENTI... .20000100000000000000000 0000000910 ,000 
1257 ANALISI ALTERNATIVE ( acquisto macchine industriali).,.+,10.000 
1258 ANALISI BREACK-EVEN....0000000000000r000 0000000000000 L10000 
1259 ANALISI TITOLI AZIONARI i gou iis si ivi istanti 103000 
I260 ANALISI TREND AZIONARI ( 3 programmi).........0000000+000:15.000 
I26I ANALISI DI 2 PROCESSI PRODUTTIVI... ...-000.000000 000000001 a20,000 
1262 AMMORTAMENTI... 0000000000100 oriana ro ns 010000000 10,000 
1263 OPERAZIONI SU MATRICI.... 0. 1001000000000 000001000000 010,000 





























VW PROGRAMMI IN BASIC 


190 ARCHIVIO INDIRIZZI PER Associazioni, Circoli etc. Ricerca nomina= 
tivi automatica anche su aree di interesse degli stessi, Ricerca 
di chi si interessa d'Arte, Musica,Filosofia etc....00000+0,10,000 
© ADI L'IMPICCATO Fellissima grafica. Cercate di Indovinave con Ie Iette=" 
re: appropriate la parola o condannate a morte l'innocente....5+000 
192 GRAFICO. DI FUNZIONI Un programma di matematica ..00000000000095+000 
193 CONVERSAZIONE col computer;Piccolo programma omande e risposte. 
i con possibilità di ampliamento all'infinito....00000000000000506 000 
19 SATURNO in grafica su tutto lo schermo, Con gli anelli 
anetini che gli ruotano attorno.....s0. 0000100000000 00008000 00056000 
—— “195 MATRICI Due programmi in uno, Spiegazioni in un programma ed esecu= 


zione: nell'altro. ‘e000000000000000000000000000000000000000005o 000 


196 RISOLUZIONI DI EQUAZIONI DI 2° GRADO. .... 


197 DISSEQUAZIONI DI 2° GRADO, Ottimo programma matematico, e, +5.000 
198 ISTOGRAMMI con una grafica a più colori, Per mesi, per lettere per 


numeri. Riposrto laterale dei dati’ immessi......00000000+00e5+00G 
199 BLACK AUT Gioco dei mattoni, Devi demolire i mattoni con il perfet= 
to rimbalzo della pallina. Usare il JOYSTICK... .000000000000do 000 
1201 TI GRAPH SOMMA Diverso dal N, II}. Questo ha ia grigiia formata da 
6 quadrati 8 X 8 pixel quindi maggior possibilità di creazioni di 
caratteri grafici più grandi. L'accesso alla griglia è diretto sen= 
za scrivere le coordinate e le ripetizioni. Si può disegnare e can= 
cellare direttamente sulla griglia. Con una opzione potete ottenere 
il disegno in piccolo con tutti i colori per lo sfondo e per il caùà 
rattere,.: 000000000000 00000000000 0000000000000 000000000000000010,000 
I202 RUBRICA SOMMATORIA Archivio:con ricerca ( con aggiunta e azzeramento) 
ereazione con fisse o variabili,sub salvataggio,unione, + + + ++ +10.000 
I203 SCI DISCESA Per Io giocatori. Scegliete colore, numero delle porte 
distanza fra di esse, larghezza e poi giù dal bosco....+0e+++30,+000 
1204 TRON Costruito sul modello di Tron intellivision. Bella grafica e 
ottimo modello per vostri futuri giochi..,+....00000000220700+5s000 
1205 DRUM MACHINE Scrive, lista, suona, correggi, carica da nastro, res 
eistra su nastro, A disposizione HAT TOM SIDE TOMS SIDES BASS DEL 
CYM, Fate musica Ffacilmontea..rers:ccesccc00i sco c00ss00000003000e 000 
) 1206 IL MUSICHIERE I Dovete indovinare ben 50 motivi di canzoni note, Uno — 
o due gigcatori, Un programma che che vi serve anche per aggiunges= 
re pezzi musicali ai vostri programmi.....000000000000000000005+000 
1207 L'IMPICCATO Con l'opzione di poter giocare con il computer o con un 
amico. Si può quindi decidere prima la parola poi farla indovinare 
Qualsiasi parola in italiano. fino a I5 lettere....0.0+0000e+10.000 
1208 SUPER PAC MAN Il solito gioco diventato super, Bellissima grafica 
colore movimento. Sue 
Te09 ‘ TI EQUAZIONI, Grafica del ‘frontespizio TEXAS a I6 colori, Un programs 
© ma originale americano. ..00000:+0002000000000000000000000000008050000 
— I2T0 TENNIS PING PONG con JOYSTICK . ( in preparazione ).% ++ + +5 000 
I2II ANALISI DI MARKOV Programma matematico... ..0000000000000000000056000 


1212 AMP CIRCUIT ( vedi il 212 precedente ) erroneamente è stato messo 
negli EX, Basic mentre invece è in BASIC...000000000000000000005,000 
I2I% FINANZA.@. Un potentissimo programma ad altissimo livello, Interesse 
composto, incremento in base aaa ordinarie converti= 
bili, TELQUEL,., Programma utile al professionista... .0.0000000010,000 
I2I5 DARE-AVERE Un indirizzario di I00 nominativi con creazione, aggiornas 
mento,eliminazione, visualizzazione per nome, codice e per l'area 
_dei nominativi avere e dare.....0 0000000000000 00000000000000000Ì100 000 
1216 SCACCHI . Grafica come l'originale Texas, Per giocare ln due 0 _____ 
per memorizzare una partita come un archivio, Una cassetta quindi 
cen due programmi, Gioco per due e archivio-programma, + 00010000010, 900 



















CALLALTA nada 00 























di 

















seguono PROGRAMMI IN BASIC 


I220 ORDINE ALFABETICO Per riordinare nominativi in ordine alfabeti= 
co. IO00 nominativi occupano 1300 Bytes, I000 nominativi occupa= 
no 3.350 Bytos..c0000 000000000 000 
NE. per scrivere in qualsiasi o del video, per orliz= 
zontalé V per verticale potete occupare tutti e 32 X 24 punti 

non possibili con la normale print..sesoscscsoeore: oc 00000000005 0000 


1222 ISOLAMENTO TERMICO DEGLI EDIFICI LEGGE 379 +. Un eccezionale pros 
gramma che-per essere in Basic è ancora più eccezionale. La cas 
ratteristica del programma anche se brevemente è contenuto nella. 
rivista allegata a questo aggiornamento programmi. +0 ++30,000 
Questo programma è corredato da una dispensa di 37 pagine dattis= 
loscritte con schemi. di edifici, formule, uso programma. 


12293 CALCOLO C.C.A4 Un altro programma altamente professionale fatto 
in semplice basic, Anche di questo si danno brevi cemi sulla 
rivista. Corredato da una dispensa di 24 pagine con schizzi e 
tabelle è opera dell'Ing. Dott Mandalari...100000000000030,000 


1224 FINANZIARIA À Un eccezionale programma con I7/ combinazioni a carat= 


tere finanziario, Calcoli veloci per sapere ogni momento quale è 
la migliore soluzione, Valori futuri di investimento con versa= 
menti non uniformi,in un unico versamento, a versamenti mensili. 
Decisioni acquisto-affitto. Deposito regolare, Prelievi regolari, 
Investimento iniziale. ( quanto devi versare oggi per avere dopo 
x anni all'x % un x capitale).Tasso di interesse nominale, effet= 
tivo, Quota di deprezzamento su un articolo, Capitale su prestito, 
Pagamento: regolare di un prestito. Quota di interessi annuale su 
un prestito. Termine di un:prestito, Quanto dura un pagamento di 
X all X% con versamenti mensili, Un programma che vi da le idee 
chiare. Sul mercato costa mediamente I100/1I50.000 lire per i 
nostri soci la spesa è minima ...-0000000000000100000000015,000 













1225 PROBABILITY ( by RANDONE ) Simula la caduta casuale di una serie 
di palline, Evidenzia la distribuzione secondo la curva di GAUSS 
E' un esempio di grafica ANIMATA IN TI BASIC.00000000000010,000 


1226 AVVENTURA NEL CASTELLO ( by RANDONE) Un programma che simula il 
vagabondare per un tetro castello. Il programma per la grande 
quantità' di informazioni contenute è ai limiti della memoria del 
TI 99,1 Un interessante programma, + 0000000000000 000000005000 


1227 STRUTTURE PORTANTI per tubazioni industriali Civili... 00010,000 








1228 CEMENTO ARMATO Flessione verifica progetto...000000000000010.000 
1229 CALCOLO ?TELAI CON ELEMENTI FINITI..+.001+0200000000010 10,000 


1234 STRIPPAGGIO Solventi(discontinuo) Strippaggio vapore.»..+,I10.000 


12935 DISTILLAZIONE DISCONTINUA. 100000000000 000000 000000000000 10,000 
IQ4T REAZIONE CHIMICHE Cinetica non 1ineare.issrernsa000001000000e100000 


T1242 OTTIMIZZAZIONE PROCESSI Distillazione/analisi economica. +10,000 : 


I244 RISCALDAMENTO acqua sanitaria.cecercosececoesoce: 0000000080 810,000 


1245 BUDGET SPESE siediti iaia eg 


1246 PACHAGE di scambio termico (transistori superfici piane,alettas.... 
ture, convenzione laminare e forzata, equazione FALKNER-SKAN , 
distribuzioni temperature in regime transitorio,alettatura, su= 
perfici verticali CC ecc.).ces0000 0000000000000 000 020,000 


1247 BILANCIAMZNTO DINAMICO GIRANTI....0000000-000000000000009.10.000 
I248 COLONNE DI LISTILLAZIONE E ASSORBIMENTO... ..0000000001s0 010,000 

































12549 METODO PERCORSO CRITICO ( C PM )...0..000000000000000 00 910,000 
1250 CINETICA REAZIONE LIQ./GAS ( catalisi eterogenea),,,.-+,10.000 
I25I PERT ( programmazioni progetti/oltre 100 attività.....-0+I0,UUO\ 


IRE racnn=-= nni. | 





PURBLICAZICNI E MATERIALE DISPONIBILE NEL CLUB 


RIVISTA 99er , Americana ( mese di novembre ) lire 11.000 


TI 99 LEARNING di Towsend ( in inglese ) 160 paa:....... 16.000 


IMPARIAMO A PROGRAMMARE IN TI BASIC- Oltre 90 esercizi 

risolti e proposti. Introduzione ai giochi con il 

TI 99/4A , Oltre ben 10 programmi completi, grafica, 

colore,suono. Tutte le funzioni del TI BASIC arric= 

chite con molti esempi.....(im.italiano)...... ssi 16000 
MANUALE: EN ASSEMBLER--in, Anglest. e eugenio ara 30 06 
BASIC IN COMPUTER ; 8 lezioni su cassetta (4) in italiano 

è il computer che vi insegna il computer. Un corso inte= 

rattivo per procedere e capire speditamente.....0000+20,000 


L'EXTENDIC BASIC ; 7 Lezioni su 4 cassette, più un gioco 
realizzato con gli Sprite,velocissimo. Un corso comple= 
to per capire questo potente linguaggio.....00000000020,000 


ESTRATTI VARI dalle varie riviste. In fotocopia chiedeteci 
ciò che vi serve. Ci pagate solo il costo delle fotoco= 
pie* Cioè lire 100 caduna. 
Disponibili articoli su la Consolle in generale, sui FILE, 
sull'assebler, sulla Minimemory, sul sintetizzatore vocale- 
Minima evasione : circa 20 pagine + 400 lire del francobollo. 


SSS EXTENDIC BASIC Cartuccia con manuale. ......0000. 149,000 
Viene regalato il Corso di 4 cassette con 7 lezioni e 2 
fantastici giochi : SPACE GEMINI E IMPERIAL LANDER ripeto 
entrambi fantastci. Come grafica e come Sprite. 


N. 

















in Basic 


Nome Programma 





Db ySn 
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CALL CLEAR aan e 
‘110 CALL CHAR(128,"F") 
29 CALL COLORC13,2,2) 









O CALL “HEHAR (Yi X1,128) 
150 CALL KEY(0,k,5) 
170 IF S=0 THER, 160, 


320 


140 






#24 THEN 150 ELSE 350 
-1 
1 


THEN 160 ELSE 350 
+1 
2352 THEN 160 
CHAR! . X1,3 
CHAF° xh is 


, 


‘0006 UN saluto da VICENZA 


E è 00000000 


CONCLUSIONE 


Se non hai bisogno di noi e 

di questi quattro fogli, man= 
daci a dire cosa hai fatto di 
buono TU. Diventeremo importan 
ti con la tua collaborazione < 
tecnica e con i tuoi program= 
mi. 

Se invece questo notiziario ti 
piace così com'è e vuoi conti= 
nuare a riceverlo avviseremo 
noi quando esce il prossimo nu= 
mero. Non mandateci subito ne 
soldi ne francobolli. 

Ripeto avviseremo noi quando 

è pronto il terzo numero. 


Cerca anche di collaborare! 
Alla ribalta ci potresti essere 
anche TU e sappi che prima o «. 
poi in base ai numeri che dai 
si accorge che hai numeri da 
vendere. 
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